USA003089 
32.0/17.0 



Space Flight Operations Contract 



HAL/S COMPILER SYSTEM 
SPECIFICATION 

PASS 32.0/BFS 17.0 



November 2005 



DRD- 1.4.3.8-a 
Contract NAS9-20000 

USA 

United Space Alliance 



USA003089 
32.0/17.0 



HAL/S COMPILER SYSTEM SPECIFICATION 



Approved by 



Original Approval Obtained 
Barbara Whitfield, Manager 
HAL/S Compiler and Application Tools 



Original Approval Obtained 

Monica Leone, Director 

Application Tools Build and Data Reconfiguration 



DRD-1.4.3.8-a 
Contract NAS9-20000 



HAL/S Compiler System Specification 



USA003089 
32.0/17.0 



Revision Log 

The HAL/S-FC Compiler System Specification has been revised and issued on the 
following dates 1 : 



Issue 



Revision 



Date 



Change Authority 



Sections Changed 



29.0/14.0 



03/10/1999 



CR12935A 



CR12940 



CR13043 



DR1 09091 



DR1 09089 



Cleanup 



3.1.1.3 -p. 3-5, 3-6 
App. B -p. B-5, B-8 



2.6.1 
2.6.2 
2.6.6 
3.3 



-p. 2-6 

-p. 2-6, p.2-7, 

-p. 2-9 

-p. 3-60, 3-61 



5.2.3 
5.2.7 
5.3.3 
5.3.4 



-p. 5-2 
-p. 5-11 
-p. 5-168, 
-p. 5-240 



5-175 



2.6.2 -p. 2-7 



3.1.1.3 -p. 3-5 



-p. 2-4 
-p. 3-4 

-pp. 5-9, 5-10, 5-12, 5-34, 5-35, 
5-37, 5-42 thru 5-45, 5-47, 5-50, 
5-55, 5-61 , 5-63, 5-64, 5-67, 5- 
68, 5-70, 5-72, 5-74, 5-75, 5-80, 
5-82, 5-85, 5-93, 5-94, 5-96, 5- 
99, 5-101, 5-1 03, 5-1 06, 5-1 11 , 5- 
113, 5-114, 5-116, 5-1 18 thru 5- 
1 25, 5-1 28 thru 5-1 31 , 5-1 34 thru 
5-136, 5-139 thru 5-143, 5-145, 
5-147 thru 5-149, 5-151 thru 5- 
163, 5-166, 5-167, 5-1 69 thru 5- 
188, 5-190, 5-192, 5-1 94 thru 5- 
221 , 5-226, 5-227, 5-230, 5-234 
thru 5-236, 5-240, 5-242, 5-246, 
5-247, 5-250, 5-257, 5-264, 5- 



267, 5-271 , 5-272, 5-274, 5-278, 


5-285, 5-287, 5-289, 5-293, 5- 


295, 5-296, 5-299, 5-300, 5-307, 


5-315,5-317,5-319,5-322,5- 


323, 5-325 thru 5-342 


-p. 6-4 


-p. 7-5 


-p. B-5 



1 . A table containing the Revision History of this document prior to the USA contract can be found in 
Appendix B. 



November 2005 



HAL/S Compiler System Specification 



USA003089 
32.0/17.0 



30.0/15.0 




06/12/00 


CR12214 


4.2 -p. 4-2 
App. A -p. A-3 


CR12620 


App. B -p. B-4 


CR13211 


App. A -p. A-3 


CR13217 


1.3 -p. 1-2 










3.1.15.3 -p. 3-60, 3-61 










7.5 -p. 7-6 










App. B -pp. B-5, B-8 


CR13222 


5.2.4.3 -pp. 5-3 thru 5-8 










5.3.1 -pp. 5-39 










5.3.2 -pp. 5-59, 5-79, 5-82, 5-83, 










5-116,5-118 










5.3.3 -pp. 5-133 thru 135, 5-141 










thru 5-144,5-146,5- 










149,5-161, 5-213 










5.3.4 -pp. 5-241 










5.3.6 -pp. 5-294 










5.3.7 -pp. 5-330, 5-331 


DR111314 


7.2.3 -p 7-2 


Cleanup 


Preface 


31.0/16.0 




09/07/01 


CR13454 


2.6.3 -p 2-7 










3.1 


1.1 -p3-2 










3.1 


1.3 -p3-5 










3.1 


1.5 -p3-9 










3.1 


1 0.4 -p 3-47 










3.1 


1 2.5 -p 3-56 










3.1 


14.1 -p3-62 










3.1 


1 4.2 -p 3-63 










3.1 


1 5.2 -p 3-64 










3.1 


17 -p3-70 










6.3 -p 6-28 










6.3 -p 6-34 


CR13462 


sec 4.0 -p4-1 to 4-10 


CR13372 


3.1.1.2 -p 3-3, 3-4 


DR111359 


3.1.15.4 -p 3-69 


DR111364 


3.1.5.3 -p3-31 










3.1.7.4 -p3-39 


Cleanup 


Preface 


32.0/17.0 




11/2005 


CR13538 


3.1.1.3 -pp. 3-5 thru 3-7 
3.1.14.1 -pp. 3-62, 3-63 
3.1.14.2-pp. 3-63, 3-64 
3.1.15.2 -p 3-66 
3.1.15.4 -p 3-70, 3-71 



November 2005 



HAL/S Compiler System Specification 



USA003089 
32.0/17.0 









CR13570 


3.1.15.5 -pp. 3-71,3-72 
3.3.4 -p 3-75 
3.3.6 -p3-75 
8.3.2 -p8-3 
8.4 -p 8-4 


CR13652 


3.1.1.3 -pp. 3-6, 3-7 










3.1.14.1 -p3-62 










3.1.14.2 -p. 3-64, 3-65 










3.1.15.3 -p 3-69 










3.1.17 -p3-72 










4.2.3.3 -p. 4-6 










8.3.1 -p8-3 










8.4 -p 8-4 


CR13811 


3.1.1.3 -p3-5 


CR13833A 


2.10 -p 2-11 


CR14216A 


Preface 










1.3 -p 1-2 










4.2.1.2 -p4-2 










7.1.2 -p7-2 



November 2005 



HAL/S Compiler System Specification 
List of Effective Pages 



USA003089 
32.0/17.0 



The current status of all pages in this document is as shown below: 



Paae No. 


Chanae No. 


All 


32.0/17.0 



November 2005 



HAL/S Compiler System Specification USA003089 

32.0/17.0 

Preface 

The HAL/S FC Compiler System Specification was developed by Intermetrics, Inc. and 
is currently maintained by the HAL/S project of United Space Alliance. The manual 
identifies the informational interfaces with the HAL/S-FC compiler and between the 
compiler and the external environment. 

Over the years, numerous changes have been made to the HAL/S-FC compiler design 
and this document has been modified to reflect these changes. However only a small 
number of these changes have been incorporated into the HAL/S-360 compiler and now 
this document is only an approximation of that compiler's design. Earlier versions of the 
predecessor of this document (IR-182) contain a more accurate representation of the 
design of the HAL/S-360 compiler's components. The earliest of these versions should 
be referenced when attempting to understand the design of the HAL/S-360 compiler, 
and this document should be referenced when attempting to understand the design of 
the HAL/S-FC compiler. 

The primary responsibility is with USA, Department, 01635A7. 

Questions concerning the technical content of this document should be directed to 
Danny Strauss (281-282-2647), MC USH-635L. 
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1.0 Introduction 

1.1 Scope of Document 

This document specifies the informational interfaces within the HAL/S-FC compiler, and 
between the compiler and the external environment. An overall description of the 
compiler, and the hardware and software compatibility requirements between compiler 
and environment are detailed in the HAL/S-FC Compiler System Functional 

Specification. 2 Familiarization with the Functional Specification is presumed throughout 
this document. 

This Compiler System Specification is for the HAL/S-FC compiler and its associated run 

time facilities which implement the full HAL/S language. 3 The HAL/S-FC compiler is 
designed to operate "stand-alone" on any compatible IBM 360/370 computer and within 
the Software Development Facility (SDF) at NASA/JSC, Houston, Texas. 

1.2 Outline of the Document 

The HAL/S-FC compiler system consists of: 

1 . a seven phase language processor (compiler) which produces object 
modules compatible with AP-101 Space Shuttle Support Software and a 
set of simulation tables to aid in run time verification. 

2. a comprehensive run-time library which provides an extensive set of 
mathematical, conversion, and language support routines. 

The organization of this document is based upon the organization of the compiler 
system. Each part of the system is considered as a separate entity with its own specific 
function and interfaces to other parts. Hence, there are four sections which cover the 
parts of the system as follows: 

Section 2 - describes Phase 1 and the syntax analysis phase of the compiler. 

Section 3 - describes Phase 2 and the code generation phase and specifies in 
detail the code patterns for specific HAL/S constructs. 

Section 4 - describes Phase 3 and the operation of the Simulation Data File 
generator. 

Section 5 - describes the Runtime Library and the concepts used in the library 
and also gives specific information about each library routine 
including size, speed, and algorithm. 

In addition to this part-by-part documentation, the compiler system, taken as a whole, 
exhibits properties and interfaces which are not specific to any one of the pieces. 
General information about such topics as the compiler's operating environment and 
user-written interfaces to emitted object code are contained in Section 6. Several 
Appendices are included which deal with tabular data used in the compiler system. 



2. HAL/S-FC Compiler System Functional Specification, 24 July 1974, IR-59 

3. HAL/S Language Specification, USA003088 
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1.3 Status of Document 

This document, plus the HAL/S-FC Compiler System Functional Specification for the 
AP-101 comprise the complete HAL/S-FC Compiler System Specification. 

The HAL/S-FC compiler inherits some of its operational features from the HAL/S-360 
compiler system for which a similar Specification exists. In addition, many features of 
the HAL/S-FC system are under control of Interface Control Documents which are 
subject to update. When appropriate within this document, references are made to 
these companion documents as sources of supplementary material and in some cases 
as primary sources of detailed information. 

The following list of documents represents the set of additional documents which reflect 
design and control of the HAL/S-FC compiler system: 

• HAL/S-FC Compiler System Functional Specification for the AP-1 01 , IR-59. 

• Interface Control Document: HAL/FCOS, (a.k.a. HAL/FCOS ICD), USA001460. 

• Interface Control Document: HAL/S-FC/SDL, (a.k.a. HAL/SDL ICD), USA001556. 

• HAL/S-360 Compiler System Specification, USA001528. 

• HAL/S Language Specification, USA003088. 

• SPF Optical Disk Flight Software Products Indexing Requirements Interface Control 
Document, JSC-26622 Section 2.1 .9. 
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2.0 Phase 1 - Syntax Analysis 

The Syntax Analysis Phase performs syntactic and semantic analysis of the user's 
HAL/S source programs. It performs all functions necessary to allow an independent 
Phase 2 program to generate code for the target computer. The basic design of the 
HAL/S system includes use of a single Phase 1 for a variety of target machine Phase 
2s. Thus, the Phase 1 used by the HAL/S-FC compiler is the same one used in the 
HAL/S-360 compiler. In this section on Phase 1 , data which is supplied in detail in the 
HAL/S-360 Compiler System Specification is not repeated. Instead, reference is made 
to the proper section of that document. 

This section deals with the following Phase 1 functions: 

• Primary Source Input 

• Secondary Source Input 

• ACCESS System Implementation 

• Compiler Directives 

• Template Checking and Generation 

• Printed Data 

• Symbol Table Creation 

• Statement Table Generation 

• Literal Table Generation 

• HALMAT Creation 

• The Optimizer 

2.1 Primary Source Input 

Phase 1 accepts primary source input in the form of fixed length logical records. This 
input must be defined by the SYSIN DD statement in the JCL invoking the compiler. 
The first byte of each record is used to define the type of the record as follows: 



M 


main line 


E 


exponent line 


S 


subscript line 


D 


compiler directive 


C 


comment 



(Other letters can be used if modified via the "CARDTYPE" compiler option to a legal 
type.) 

For stand-alone operation the source records are 80 bytes in length and may contain 
data in columns 2-80. Optionally, the user may designate, via the "SRN" compiler 
option, that the source scanning is to stop at position 72 and also that positions 73-78 
are to be printed on the listing as "Statement Reference Numbers". 

When operating in the SDL environment, indicated by use of the "SDL" compiler option, 
the source records must still be all the same length but that length may be from 80 to 
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1 32 characters. When in the SDL mode, the compiler accepts source data from record 
positions 2 through 72. In addition, when the records are of sufficient length, the 
following fields are recognized and all except the change authorization field are printed 
on the primary source listing: 

• Record Sequence Number - positions 73 through 78; 

• Record Revision Indicator - positions 79 and 80; 

• Change Authorization Field - positions 81-88 

• Portions of records beyond position 88 are ignored. 

The compiler's primary input may optionally be in a compressed source format as 
defined in the HAL/SDL ICD. No special notification of use of compressed source is 
needed. Phase 1 determines the type of input by examining the first record. Catenated 
datasets defined as primary compiler input must all be either in compressed or 
noncompressed format for one invocation of the compiler. 

2.2 Secondary Source Input - The Include System 

The user may direct the compiler to an alternate input source by use of an INCLUDE 
compiler directive in the primary input. The exact form of the INCLUDE directive may 
be found in Section 5.2 of the HAL/S-FC User's Manual. 

The INCLUDE directive defines a member name in a partitioned dataset. Phase 1 uses 
a FIND macro to locate the member on the INCLUDE DD card. If the FIND is 
unsuccessful, an identical FIND is issued for the OUTPUT6 DD card. A member, when 
located, is read to its end by the compiler. The records are processed identically to 
primary (SYSIN) input with the exception that further INCLUDE directives within 
INCLUDE'd source are not allowed. The same source margins are applied to the 
INCLUDE'd source as are applied to the primary input. In addition, the compiler prints a 
line in the primary source listing indicating the catenation sequence number of the DD 
card on which the member was found and the RVL field from the PDS directory entry 
for the member. The RVL field is the first 2 bytes of user data after any TTRNs. 

The individual members which are INCLUDE'd may be in either compressed or 
uncompressed format, independent of whether the primary input was compressed. 
The form of each INCLUDE'd member is determined by the compiler from the first 
record read. 

Partitioned datasets may be catenated together in the JCL to form the INCLUDE DD 
sequence, but such datasets must have identical DCB attributes. 

2.3 Access Rights Implementation 

The HAL/S language allows managerial restrictions to be placed upon the usage of 
user-defined variables and external routines. The existence of such a restriction is 
indicated by the use of the ACCESS attribute as described in the HAL/S Language 
Specification. The manner in which the restrictions are enforced in the HAL/S-FC 
compiler system is described below. 
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Any variable in a COMPOOL template or any external routine to which the ACCESS 
attribute has been applied is considered to be restricted for the compilation unit which is 
being compiled. The restriction is slightly different for variables than for blocks: 

a. Variables with the ACCESS attribute may not have their values 

changed. 

b. Block names may not be used at all. 

These restrictions may be selectively overridden for individual variable and block 
names. The selection of which ACCESS controlled names are to be made available to 
the unit being compiled is performed by processing an external dataset. The external 
dataset is known as the Program Access File (PAF). The PAF must have partitioned 
organization and is specified by the following JCL: 

//HAL. ACCESS DD DSN=<PAF name>, <other parameters> 

where the <PAF name> is the dataset name of the PAF without any member 
specification. 

Each member of the PAF contains the information about ACCESS controlled names 
which are to be made available to one unit of compilation. The member name is 
defined by a Program Identification Name (PIN). The PIN is specified to the HAL/S-FC 
compiler by using the PROGRAM compiler directive in the primary input stream: 

col 1 

D PROGRAM ID = <id> 

The <id> field of the directive is a 1 to 8 character identifying name which is used to 
select the member of the PAF to be processed for the current compilation's ACCESS 
information. The appearance of the PROGRAM directive in the compiler's input stream 
causes immediate processing of the PAF member specified. 

The format of an individual PAF member is described below. 

a. Column 1 of each record is ignored except when column 1 contains the 

character "C", in which case the entire record is ignored. 

b. The portion of each record which is processed is the same portion which is 
processed in the primary compiler input (SYSIN). 

c. COMPOOL elements which are to be made available to the compilation are 
specified as: 

<COMPOOL-name>($ALL) 

<COMPOOL-name>(<var-name>, <var-name>,...<var-name> or 

The first format specifies access to individual variables within the named 
COMPOOL. The second format specifies access to all variables within the 
named COMPOOL. 

d. Access to external block names is specified as: 

$BLOCK(<ext-name>, <ext-name>,...<ext-name>) 

e. Blanks are allowed anywhere in the record except that names may not be 

broken by a blank. 
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f. Either of the constructions (c) or (d), above, may span more than one record. 

g. The name of the particular COMPOOL in the form (c) above may appear more 
than once; i.e. the variables in a particular COMPOOL do not have to be 
specified at one time. Similarly, the form $BLOCK may appear more than 
once. 

Some validity checking is performed by the compiler while processing the PAF member. 
Warnings are issued for the following conditions: 

1 . A syntax error on a PAF record- the bad record is printed. 

2. Names mentioned in the PAF are not defined. 

3. Elements of $BLOCK in the PAF are not defined. 

4. Requests for names which are not ACCESS protected. 

5. Variables found, but not within the COMPOOL specified. 

6. Names used in the context of a COMPOOL-name which are not COMPOOLs. 

If, at the time the PROGRAM directive is encountered, there have been no ACCESS- 
controlled variables declared, the PAF is not opened. If a user does not require access 
to any, the PROGRAM directive and associated PAF members may be omitted. 

2.4 Compiler Directive Parsing 

When an input record is found which contains a "D" in column one, Phase 1 scans the 
remainder of the card for a valid compiler directive. A list of legal compiler directives 
and their function is listed in Section 5.2 of the HAL/S-FC User's Manual. 

Directive processing is done independently of HAL/S source language parsing, i.e. 
words used on Directive cards are not necessary HAL/S language keywords. Similarly, 
HAL/S language keywords are not recognized as such on Directive cards. 

2.5 Template Checking and Generation 

Phase 1 assumes the task of source template verification and generation. Every 
compilation unit in the HAL/S-FC system has a source template. When the block 
header for a unit of compiler is encountered, Phase 1 begins to construct the source 
template for that unit as follows. 

The member name for the template being created is determined. This is done by taking 
the "characteristic name" for the unit and preceding it by the characters '@@'. The 
characteristic name for any unit is created by taking the block name, removing any 
underscore characters, and then padding or truncating the result to 6 characters. An 
attempt is made to locate a member of this name on either the INCLUDE or OUTPUT6 
DD cards. If such a member is found, the contents of the member are compared with 
an internal, temporary template created as the compilation proceeds. If the existing 
template and the internal one agree, a template update is not required, and the existing 
template remains intact. If the templates do not agree, the internal template is written to 
the OUTPUT6 DD card and STOWed with the current member name. If the initial 
search for an existing template fails, the generated template is automatically written 
and STOWed on the OUTPUT6 DD card. The PDS directory entry for a template 
member is created with two bytes of user data. The two bytes are initialized to X'FOFO'. 
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Phase 1 also sets appropriate bits in a field which is passed back to the caller of the 
compiler as the high order byte of register 1 5. The definitions of these bit settings is 
defined in the HAL/SDL ICD. 

Generation of the internal template is performed during syntax analysis on a token by 
token basis. As statements are encountered which are required in the template, the 
tokens from the statements are added to an internal buffer. When a new token will no 
longer fit in the buffer, the buffer is written and cleared for continuation. Thus, the 
templates take the form of strings of HAL/S tokens separated by one block. The 
template statements are continued from one line to the next without regard for 
statement boundaries, thus producing the template in the most compact form possible. 

For the comparison of existing templates with new, generated templates, the generated 
records are compared character for character with the existing records. Any mismatch 
is considered to indicate a change in the template. 

Templates are never generated using the compressed source format mentioned in 
Section 2.1 . The generated templates conform to the source margins in effect for the 
compilation (e.g. for an SDL mode compilation, templates are created with source in 
position 2 through 72 of the records. When template records are written to the 
OUTPUT6 DD card, the records are padded with blanks or truncated as necessary to 
conform to the LRECL specification for that DD card. 

When a template has been found to have changed, the compiler updates a "Version 
number" associated with the template. For an existing template, the version number is 
found on a VERSION compiler directive card at the end of the existing template 
member. If a new template is needed, the version number is incremented by one and 
placed on a new VERSION directive card at the end of the generated template. The 
version number is limited to the range 1 to 255. Upon reaching 255, the next 
incrementation causes the number to begin again at 1 . When no existing template can 
be located, the version is set to 1 . 

When templates produced by the compiler are referenced in subsequent compilations 
by use of an INCLUDE for the template, the version numbers from the referenced 
templates are emitted into the produced object code on special SYM records which 
indicate the versions of all external references. In addition, the emitted object code for 
any compilation unit contains a SYM record indicating the version number of the 
template created for that compilation unit. This information permits the checking, if 
desired, of proper integration of separately compiled units by providing information 
necessary for cross-checking of inter-module references. 

2.6 Listing Generation 

2.6.1 Options 

All Type 1 and Type 2 options listed in the HAL/S-FC User's manual except debug 
options and HAL/S-360 unique options are printed in alphabetical order. For Type 1 
options, just the option is printed if the option is on. If the option is off, the option is 
prepended with a "NO". 
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2.6.2 Primary Formatted Listing 

The central printed output of the compiler is the primary source listing. This listing is 
designed to document the actions taken by the compiler during its generation of an 
executable form of the user's source program in an indented, annotated format. 
Additional information, such as block summaries and symbol table listings, are also part 
of the primary source listing. 

The formatting of the primary source listing leads to the documentation of the users 
program in two ways: 1) variable annotation, and 2) logical indenting. 

1 . Variable annotation - Each user-defined data symbol, when printed on the 
primary source listing, receives "marks" appropriate to the type and 
organization of the symbol. This annotation is that which is defined by the 
HAL/S Language Specification. 

2. Logical indenting - Each statement printed on the primary source listing is 
formatted and indented to show internal statement structure, and to show 
the statements' hierarchical and nesting relationships to other statements in 
the compilation. The indention increment is 2 spaces. 

When operating in the SDL, additional information is provided on the primary source 
listing. The Record Sequence Number and Record Revision Indicator fields (see 
Section 2.1 ) are printed on the primary source listing next to the statements to which 
they apply. The revision level is printed to the right of the statement immediately 
following the vertical bar. Another vertical bar separates the revision level from the 
current scope. Additional details of the specific operations performed during SDL 
operation may be found in the HAL/SDL ICD. 

All lines are single-spaced except for the following: there is a blank line before a group 
of one or more E-lines, C-lines or D-lines and after a group of one or more S-lines. 

For D INCLUDES, the first statement number associated with the include is printed. 

If there is an IF-THEN or IF-TH EN-ELSE statement followed by a simple DO, the DO 
appears on the same line as the IF-THEN or ELSE except when the combination of the 
statements is too long for a single line. The combined IF-THEN and DO statements 
(including the semicolon of the DO) will be broken into multiple lines following regular 
compiler rules. The statement number for the IF-THEN will be printed as the statement 
number for each line. If the THEN and the DO or the ELSE and the DO are separated 
by a C-line or a D-line, the DO will be placed on its own line with its own statement 
number. 

Normally, the current scope is printed to the right of each line in the compilation listing. 
The value in the scope field will be truncated if it exceeds the maximum line length. 
The following list indicates instances where the current scope will be replaced by a 
different value: 

a. The scope field for END statements contains the statement number of the 

corresponding DO statement. 

b. The scope field for the first statement line (that is not a label) of a case in a DO CASE 
group contains the case number. 
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c. The scope field for an IF-THEN followed by a simple DO is replaced by "DO=ST#", 
where ST# is the statement number of the DO. Usually, the scope is replaced with 
the statement number of the DO for each line of a multi-line statement. However, 
because of certain compiler limitations or other uses of the scope field, the "DO=ST#" 
may not appear on all of the lines. Following are the known cases: 

1 . If the length of the statement exceeds a certain compiler-limited size, the 
statement number of the DO will not be printed for the first line(s) of the 
statement. 

2. If a C-line or D-line is placed inside the IF-THEN statement, the "DO=ST#" will 
only be placed in the current scope for the lines following the last C-line or D- 
line. 

3. If the multi-line IF-THEN-DO is the first statement of a case in a DO CASE 
group, the scope field of the first line will contain the case number. 

Only one of a-c from above will be placed in the scope field for a given line, with the 
order of precedence as listed above. 

Depending on the contents of the macro, the formatting of statements containing 
replace macros may vary from the requirements listed above. 

2.6.3 Error Messages 

When compilation errors are detected by Phase 1 , an error message is printed in the 
primary listing at the point of detection. All error messages have an identifying code 
associating with them. 

The code is assigned to messages according to a general system which groups errors 
according to a class and a subclass. Multiple errors within a class/subclass 
combination are assigned unique numbers within the group. Thus, every possible error 
in the HAL/S-FC compiler system has a unique identifying code. 

The text of all error messages is maintained on a direct access dataset. The compiler 
retrieves error message text as needed from this dataset. During compilation, the 
ERROR DD card defines the error message dataset. This file has partitioned 
organization and contains one member for each error message. The member names 
are identical to the identifying code assigned to the errors. 

The record format of the error library is FB and the logical record length is 80 bytes. 
The first record of each member defines the severity of that error. The severity is a 
single EBCDIC number in position one of the first record. The severities and their 
effects are: 

Severity messages will be warning messages (Severity 1 ) that have been 
downgraded. Processing will continue, and object code will be 
generated. 

Severity 1 messages will be minor errors in which compilation will be allowed 
to continue. Since these errors could produce bad object code, 
compilation will abort and no object code will be generated. 
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Severity 2 messages will be major errors. These errors usually involve 

unimplemented features. Compilation will abort as results will be 
unpredictable. No object code will be generated. 

Severity 3 messages will be severe errors that require user action. 

Compilation will abort immediately and no object code will be 
generated. 

Severity 4 messages will be internal compiler errors. Compilation will abort 
immediately and no object code will be generated. Compiler 
support personnel should be notified, and a compiler DR usually 
results. 

Within the text of an error message, locations into which specific descriptive information 
may be placed are denoted by the appearance of two question marks (??). For errors 
which have this feature, the compiler supplies additional description text (such as the 
name of an identifier) to make the printed error message as specific and informative as 
possible. 

2.6.4 Block Summaries 

The HAL/S-FC compiler provides additional information on the primary listing at the 
close of HAL/S code blocks. The blocks for which summaries are given are 
PROGRAM, TASK, FUNCTION, and UPDATE. 

Information contained in block summaries consists of lists of labels or variable names 
used in various contexts within the block. The title "BLOCK SUMMARY" begins the list. 
For all potentially summarized contexts within the block, a descriptive heading is printed 
followed by the list of names involved. A "*" next to any name in the block summary 
indicates that the name appears in a context which changes its value. The headings 
are listed below. 

PROGRAMS AND TASKS SCHEDULED 

PROGRAMS AND TASKS TERMINATED 

PROGRAMS AND TASKS CANCELED 

EVENTS SIGNALED, SET, OR RESET 

EVENT VARIABLES USED 

PROGRAM OR TASK EVENTS USED 

PRIORITIES UPDATED 

EXTERNAL PROCEDURES CALLED 

EXTERNAL FUNCTIONS INVOKED 

OUTER PROCEDURES CALLED 

OUTER FUNCTIONS INVOKED 

ERRORS SENT 

COMPOOL VARIABLES USED 

COMPOOL STRUCTURE TEMPLATES USED 

COMPOOL REPLACE DEFINITIONS USED 

OUTER VARIABLES USED 

OUTER REPLACE DEFINITIONS USED 

OUTER STRUCTURE TEMPLATES USED 
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2.6.5 Compilation Layout Summary 

Immediately preceding the Symbol Table printout at the CLOSE of the HAL/S program, 
there is a compilation layout map, indicating the way in which PROGRAMS, TASKS, 
PROCEDURES, FUNCTIONS, and UPDATE blocks were defined. The indent level in 
this printout indicates the nesting level definition of the block shown. This serves to 
give a quick overview of the compilation structure. 

2.6.6 Symbol & Cross Reference Table Listing 

The symbol and cross reference table printed at the end of a HAL/S compilation listing 
provides a detailed accounting of all programmer-defined symbols. The table listing is 
organized into two parts: a structure template listing and an alphabetized total listing. 
These parts are labeled appropriately and are separated by a page break. 

Any structure templates defined in the compilation appear first in the symbol and cross 
reference table. The template names appear in alphabetical order. All structures 
declared using each template are listed alphabetically after "USED BY" under the 
template in the attributes and cross reference area. The body of each template (i.e. the 
levels defined under the template name) is also listed under the template name in the 
order of definition. This ordering provides a quick reference to the organization of the 
structure template. 

Following any listing of the templates, an alphabetized listing of all programmer-defined 
symbols is printed. Symbols previously listed as element of a structure template are 
included in this list. However, the list is completely alphabetized and template 
organization is not shown. When a particular symbol is independently defined in more 
than one name scope, the symbol is multiply listed in order of definition. 

2.6.7 Built-in Function Cross Reference 

Phase 1 also produces a listing of any HAL/S built-in functions used in a compilation. 
The printout shows the statement numbers at which the references to the built-in 
functions occurred. 

2.6.8 Replace Macro Text 

If any HAL/S REPLACE statements were used in the compilation, the text of the macro 
is printed in the symbol table listing in the attributes and cross reference area. 

2.6.9 Unformatted Source Listing 

Under control of the "LISTING2" compiler option, Phase 1 will optionally produce, on 
the file defined by the LISTING2 DD card, a listing of the input (both SYSIN and 
INCLUDE) source records as read by the compiler. No special annotation, formatting, 
or indenting is performed. In the case of input in the SDL compressed format, the 
LISTING2 option produces the records in their uncompressed format. 
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2.7 Symbol Table Generation 

Phase 1 is responsible for initial creation of the compiler's internal symbol table. The 
symbol table consists of a group of arrays which describe all of the properties of 
declared variables and labels. The capacity of the symbol table is under user control by 
means of the SYTSIZE compiler option. This table, as created by Phase 1 , is located in 
an area common to all compiler phases. Thus, Phase 2 inherits the initialized table 
from Phase 1 . 

Design of the HAL/S-FC compiler includes, as a basic concept, the use of a Phase 1 
and Phase 1 /Phase 2 interface identical to that of the HAL/S-360 compiler. Thus, the 
description of the internal symbol table to be found in the HAL/S-360 Compiler System 
Specification, Appendix B.2 is sufficient to define the HAL/S-FC table. 

2.8 Statement Table Generation 

The statement table passes information about executable statements from Phase 1 of 
the compiler to Phase 3. This information allows Phase 3 to include statement type and 
target variable information in the Simulation Data Files. 

Due to the use of a common Phase 1 in the HAL/S-360 and HAL/S-FC compiler 
systems, the Statement Table description in the HAL/S-360 Compiler System 
Specification document is sufficient to describe the HAL/S-FC table (See Appendix B.3 
of that document). 

The basic table description includes reference to an "extension" field in which 
statement memory addresses and/or SRN data is stored. Use of this field is activated 
by use of certain compiler options: 

SRN data is included in the Statement Table if either of the SRN or SDL compiler 
options are used. 

Beginning and ending addresses for individual HAL/S statements are included in the 
Statement Table when the ADDRS compiler option is used. 

The Statement Table is produced on the file specified by the FILE6 DD card. No 
Statement Table data is communicated via in-memory tables. 

2.9 Literal Table Creation 

The format of the HAL/S-FC literal table is identical to that used by the HAL/S-360 
compiler as described in Appendix B.1 of the HAL/S-360 Compiler System 
Specification. 

The size of the area in which character literal data is stored is under user control via the 
LITSTRINGS compiler option. This character literal area is communicated to 
subsequent phases of the compiler through common memory locations. 

The portion of the literal table which contains arithmetic literal, bit literal, and pointers to 
character literal is passed to later phases via the dataset defined by the FILE2 DD card. 

2-10 November 2005 



HAL/S Compiler System Specification USA003089 

32.0/17.0 

2.10 HALMAT Creation 

HALMAT is the intermediate code medium by which the structure of the compiled 
HAL/S-FC is passed to Phase 2 for code generation. The HAL/S-FC compiler uses a 
similar Phase 1 as the HAL/S-360 compiler. A description of HALMAT as used by the 
HAL/S-360 compiler can be found in Appendix A of the HAL/S-360 Compiler System 
Specification and a description of the HAL/S-FC HALMAT can be found in Appendix A 
of the HAL/S-FC Compiler System Program Description Document. 

HALMAT is passed to Phase 2 through use of auxiliary storage as defined by the FILE1 
DD card. 

2.11 The Optimizer 

The HALMAT produced by Phase 1 is a direct representation of the HAL/S program 
being compiled. A separate phase of the compiler exists between Phases 1 and 2 
which examines and manipulates the HALMAT in order to produce an optimized 
HALMAT representation. This phase, known as Phase 1 .5, is conceptually a part of 
Phase 1 . Its operation is transparent to the user as it produces no standard printouts. 

The Optimizer performs the following functions: 

. Common subexpression elimination, including subscript computations 

. Additional literal folding 

. Pulling loop invariant subexpressions out of loops 

Replacement of unneeded divisions by multiplications 

. Suppression of unnecessary matrix transpose operations 

. Indicate linear operations on Vectors and Matrices to allow for in-line code. 

. Indication of procedures which cannot be leaf procedures (as an aid to 
Phase 2) 

. Indicate the next use of variables and subexpressions, to assist register 
allocation in the code generator 

These operations are carried out by modifying the HALMAT, literal table, and symbol 
table. 

While the Optimizer is a separate phase, it is conceptually a part of Phase 1 and is 
described in the HAL/S-360 Compiler System Specification. 
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3.0 PHASE 2 - Code Generation 

The code generation phase of the HAL/S-FC compiler has the primary function of 
producing machine language instructions for the AP-1 01 . Phase 2 also performs other 
tasks which are also the subject of this chapter. 

This section deals with the following Phase 2 functions: 

• Code Generation 

• Naming Conventions 

• Printed Data 

• Symbol Table Augmentation 

• Statement Table Augmentation 

3.1 Code Generation 

3.1.1 Bases and Conventions 

Phase 2 produces AP-1 01 machine language instructions which perform the operations 
indicated by each line of HALMAT received from the syntax and semantic analysis 
phase. This section describes in detail the ground rules which the code generation 
phase follows in producing object code. The following terms will be used throughout 
the ensuing text: 

R - A general accumulator (integer or scalar); 

X - An indexing register (for subscripting); 

B - A base register containing a base address used to compute the 

effective address of a variable, constant, temporary, or program 
label. 

OFFSET - The constant term which, when subtracted from the actual data 
address of a variable, yields the address of the 0'th item of the 
aggregate data collection (note that all HAL subscripts start 
counting from 1). This is when the variable is a single item. 

VAR - The address of a declared non-parameter HAL/S variable. For 

addressing purposes, it is actually the base address of the actual 
data minus the OFFSET. Single valued integer, scalar, or bit input 
parameters also will use this form. 

PAR - The address of a formal parameter passed "by reference". This 

includes any assigned parameters, plus any input parameters 
which are not simple integer or scalar variables. Note that PAR 
actually contains an address. 

DELTA - The constant indexing term in a subscript calculation. This term 
may also reflect the displacement of a structure terminal within a 
structure template. 

OP - Any AP-1 01 machine instruction. 

Note - When VAR or PAR appears in machine instruction constructions, it 

represents the displacement difference between the data address and the 
base address contained in the base register B. 
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3.1.1.1 Register Usage 

The following register assignments are used by the code generator: 

F0-F5 Used for floating point accumulators and parameters. 

F6-F7 Used for floating point accumulators only. 

R0 Stack register. This register points to the caller's register save area 

in the run time stack. In addition, all formal parameters, temporaries, 
and AUTOMATIC variables in REENTRANT procedures are based 
on this register. 

R1 Global data addressing register. This register is used to address all 

of the declared variables and literals within a compilation unit. 

R2 Work addressing register. This register is used to pass address 

parameters, dereference NAME variables, and set up any other 
dynamic addressing. 

R3 Local addressing register. This register is used in SRS instructions 

only to address a certain subset of the local data in a block. 

When the DATA.REMOTE directive is in effect (see Section 4.0), 
register 2 can only be loaded with non-local data addresses 
(COM POOL, etc.) and register 3 can only be loaded with local data 
addresses. 

R4 Linkage register. This register records the return address for all 

subroutine linkages. It may also be used for an integer accumulator. 

R5- R7 Used for integer accumulators, index registers, and parameter 
passage where applicable. 

3.1 .1 .2 Storage Allocation 

The HAL/S-FC compiler arranges data in memory such that the least number of base 
registers need be dedicated in addressing. 

Data is grouped into three major categories: single value (constant offset=0), aggregate 
(character, vector-matrix, structure without copies), and array (including structure with 
copies). Within each group, data is ordered such that data requiring the same 
boundary alignment is adjacent, minimizing the storage lost due to hardware alignment 
requirements. Within the array group, ordering is further carried on such that 
multidimensional arrays (with larger offsets) come after single dimensional arrays. 
These above orderings are carried on independently for: 1) program data, and 2) each 
COMPOOL block contained in the compilation unit. Note that program data includes all 
variables within the compilation unit including those defined in procedures, functions, or 
any other block. 

Structure templates, unless declared as RIGID, are internally ordered such that the 
minimum boundry alignment within any node level is required. Template matching 
requirements guarantee that templates exhibiting identical properties will be identically 
reordered. 
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After all groupings are complete, storage assignments are made, with the required 
base-displacement combinations being generated to properly access the data. The 
storage addresses assigned refer to the actual data beginning, but for arrayed data 
types, the base-displacement address includes a negative offset value (COM POOL 
variables that are not referenced do not have base-displacement addressing 

generated). This negative offset value is commonly referred to as an imaginary th 
element. 



OFFSET = 




OFFSET = ALIGNED 
WIDTH OF A SINGLE 
COPY 



ARRAY_FACT = 1 (1 D) 

= N2 +1 (2D) 
= N3(N2+1) +1 (3D) 



SP INTEGER, BOOLEAN, EVENT, BIT(1)-BIT(16) 



DP INTEGER, SP SCALAR, BIT(17)- BIT(32) 



DP SCALAR 



CQEF = 1 
COEF = 2 



SP VECTOR/MATRIX 



DP VECTOR/MATRIX 



COEF =2 



ROWS 



COEF = 4 
■ COLS 



CHARACTER 



COEF = 4 



ROWS 



COLS 



COEF = (3+MAX_CHAR) 12 




OFFSET = OFFSET + COEF • ARRAY FACT 



EXIT 



Figure 3-1 Algorithm for Calculating the th Element Offset 
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Example: 








DECLARE 


A SCALAR, 

B INTEGER, 

C CHARACTER ( 7 ) , 

D ARRAY (5) DOUBLE; 




DECLARE 


E ARRAY ( 5 ) , 

F ARRAY (3, 3) VECTOR, 

G MATRIX; 




DECLARE 


H DOUBLE, 

I ARRAY (5, 5) INTEGER; 




Aliqnment 


Name 


Location Base Displacement 


(In Decimal) th element 


Halfword 


B 


00002 1 0002 





Fullword 


A 


00004 1 0004 





Doubleword 


H 


00008 1 0008 





Halfword 


C 


0000C 1 oooc 





Halfword 


1 


00011 1 000B 


-6 


Fullword 


E 


0002A 1 0028 


-2 


Doubleword 


D 


00034 1 0030 


-4 


Fullword 


G 


00048 1 0046 


-2 


Fullword 


F 


0005A 1 0040 


-26 



Note that all formal parameters and all AUTOMATIC variables in a RENTRANT 
PROCEDURE or FUNCTION are based off the stack register (0). 

3.1.1.3 Addressing Concepts 

This section describes the general addressing rules for data. To the extent possible, 
data can be directly addressed via some combination of base register and bit 
displacement (eleven bits for indexed addressing). This is not possible whenever the 
data item is a formal parameter other than a simple integer or scalar, or any formal 
parameter scoped in from an outer to an inner procedure. The skeletal forms given in 
Section 3.2 assume the most commonly used addressing forms. The rules described 
here should be superimposed upon these skeletal forms to interpret all possible 
combinations of operations between operands. 

Simple Addressing Forms 

Simple Variable 

OP R,VAR(B) 

Simple Aggregate Component (array or vector-matrix) 

OP R,VAR+DELTA(X,B) 

Simple Integer-Scalar formal parameter 

OP R,VAR(0) 



Simple Aggregate formal parameter 
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L B , PAR ( ) 

OP R, DELTA (X,B) 

NAME Variable in dereference context 

LH B,VAR(B) 

OP R, DELTA (X,B) 

NAME Variable in dereference context (ASSIGN formal parameter) 

L B,VAR(B) 

LH B,0(B) 

OP R, DELTA (X,B) 

When the DATA_REMOTE directive is in effect (see Section 4.0), if register 1 or 3 is 
loaded with a new base address and used in operation OP as base B, then it will be 
restored immediately after OP to its original local data pointer value with: 

LH B, stack_location (0) 

However, if the next instruction is a conditional branch, then it will be restored with: 

LH B, stack_location (0) 
SLL B,16 

REMOTE Variable 

OP@# R,ZCON(X,l) 
ZCON DC Z (0,VAR, 0) 

NAME REMOTE variable in dereference context is basically the same as a REMOTE 
variable, except the NAME variable is used in place of the ZCON 

OP@# R,VAR(X,1) 

NAME REMOTE variable in dereference context that lives REMOTE 

L@# R,ZCON(X,l) 

ST R, stack_location(0) 

OP@# R, stack_location(X, 0) 

REMOTE formal pass-by-reference (address) parameter 

OP@# R, stack location (X, 0) 



Address Passage Addressing Forms 

For parameter passing to procedures, functions, and library routines, it is often 
necessary to pass address pointers instead of data. The following sequences could be 
used anywhere the instruction LA appears in the generated code sequence. 

Unsubscripted variable: 

LA R,VAR(B) 

Subscripted variable: 

SLL X,< index alignment > 
LA R,VAR(X,B) 
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Unsubscripted REMOTE variable: 

L R,ZCON(l) 4 

Subscripted REMOTE variable: 

SLL X,< index alignment > or SLL R, < index alignment > 
L R,ZCON(l) 4 
AR R,X 

Non-aggregate variable to REMOTE library or to REMOTE parameter in HAL/S 
procedure or function: 

LA R,VAR(B) 

OHI R,x'8000' (PASS only) 

IAL R,x'0800' 

Subscripted variable to REMOTE library or to REMOTE parameter in HAL/S procedure 
or function: 

SLL X,< index alignment > 

LA R,VAR(X,B) 

OHI R,x'8000' (PASS only) 

IAL R,x'0000' 

Unsubscripted aggregate variable to REMOTE library or to REMOTE parameter in 
HAL/S procedure or function: 

LA R,VAR(B) 

OHI R,x'8000' (PASS only) 

IAL R,x'0000' 

Non-aggregate variable to REMOTE library or to REMOTE parameter in HAL/S 
procedure or function through a NAME dereference: 

LH R,Name_Var 

IAL R,x'0800' 

SRA R, 1 

SRR R,31 

OHI R,x'8000' (PASS only) 

Subscripted variables to REMOTE library or to REMOTE parameter in HAL/S 
procedure or function through a NAME dereference: 

LH B , Name_Var 

LA R,<INDEX>(B) 

SRA R, 1 

SRR R,31 

OHI R,x'8000 ' (PASS only) 

Unsubscripted aggregate variable to REMOTE library or to REMOTE parameter in 
HAL/S procedure or function through a NAME dereference: 

LH R,Name_Var 

SRA R,l 

SRR R,31 

OHI R,x'8000' (PASS only) 



4. ZCON DC Z(0,VAR,0). 
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Subscripted variable to REMOTE library. 

(stack variable only) 

SLL X,< index alignment > 
LA R,VAR(X,B) 

IAL R,x'0400' 

Note that the compiler emits an RLD card that informs the linkage editor to insert the 
proper CSECT value into the last four bits inserted by the IAL instruction for non-NAME 
non-stack variables, to conform to the ZCON format. 

For stack variable (B=0), this cannot be done because the stack CSECT is undefined at 
compile time. The '0400' sets the ZCON's C bit which will allow correct address 
expansion for either CSECT or 1 , which is where the stack is located. 
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Indexing: 

The computation for all indexing is done as follows. All constant index terms are 
factored out from the variable terms. The variable terms are computed according to the 
natural sequence of unwinding aggregate data. The constant terms are similarly 
computed to form a DELTA. The variable subscript in register X is shifted according to 
the halfword width of the data being indexed, except for those instructions which 
perform automatic index alignment. The DELTA is similarly shifted at compile time. If 
0<DELTA<2048, it is used in the variable displacement. Otherwise, it is added to X if X 
is non-zero, or loaded into a newly created X if X is zero (i.e. the subscript contains no 
variable terms). 

3.1.1.4 Condition Codes 

The following table lists the allowable relational operations and the resultant condition 
code - referred to as COND throughout the remainder of this section. Note that the AP- 
1 01 conditional branch instructions branch on the "not true" condition. 



<OP> 




COND 


= 




3 


- 1 = 




4 


< 




5 


> 




6 


< or 


> = 


2 


> or 


< = 


1 



3.1 .1 .5 ZCONs and the Calling Mechanisms 

Throughout the descriptions of generated code of Section 3.1 , branches to other 
CSECTs (comsub or library) are generally indicated as: 

ACALL <routine name> 

The actual implementation of this linkage is to go not directly to the named routine, but 
instead to branch indirectly through a long address constant (ZCON) located in sector 
of the machine. 

When the target of the branch is a compiler-generated CSECT (a COMSUB), the 
ZCON referenced will be one created during compilation of the COMSUB. The long 
indirect address will be in a CSECT named #Znnnnnn (see Section 3.2) which will in 
turn refer to the real code CSECT. 

When the target of the branch is a library routine, the ZCON referenced will be one 
provided with the library. Its name will be #Qnnnnnn and it will in turn refer to the proper 
library code CSECT. Certain library routines, for reasons of execution speed, are 
referenced directly by compiler-emitted code without going through a ZCON. These 
routines are designated in the BANKO column of the library documentation. This direct 
addressing requires that these routines reside either in sector zero or in the same 
sector as the compiler code which references them. 
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The use of ACALL in the descriptions implies an external call. In actuality, the 
instruction generated may be either: 

SCAL 0,<routine name> 
or 

BAL 4,<routine name> 

depending on whether the library routine has been designated as PROCEDURE or 
INTRINSIC type. 

Some of the parameter setups show the use of P1 , P2, and P3 for parameter registers. 
The following table shows the actual register values for P1 , P2, and P3 depending upon 
the nature of the library routine (see library documentation for specific details). 

P1 P2 P3 
Intrinsics — 

Procedure- 
Pi used 
P1 not used 

When the DATA REMOTE directive is in effect (see Section 4.0), the ACALL will be 
preceded by the instruction LDM $ZDSECLR to clear the DSE registers, and will be 
followed by the instruction LDM $ZDSESET to set the DSE registers upon return. 

3.1 .1 .6 The Runtime Stack 

The HAL/S-FC compiler system employs a runtime stack mechanism as an integral 
part of its operation. The stack mechanism is used to provide subroutine linkage areas, 
temporary work areas, error environments, and to provide reentrancy of code blocks 
when needed. The actual memory used as a stack space for a given HAL/S process is 
provided by the flight computer operating system (FCOS). The determination of the 
size required for a particular stack is made by the flight computer support software 
linkage editor. The linkage editor determines stack size (and upon special request will 
create a stack CSECT) from information provided on SYM cards in the modules being 
link edited. The HAL/S-FC compiler emits the SYM cards as part of its object modules. 
The runtime library uses a system of macros to generate the properly named DSECTs 
and SYM entries for stack size computation. 

The details of formats and requirements relating to stack generation can be found in the 
HAL/SDL ICD. That document also contains the detailed description of the "stack 
frame", that portion of a total stack which is used by an individual subroutine when that 
subroutine has been invoked. The description of the basic stack frame is reproduced 
here for reference. 

The active stack frame is pointed to by the pointer in register R0. The back link to the 
previous stack frame is established when a new level is entered. A pointer, NEW R3, is 
established for any block with a local data area. If a local data area is not present, e.g. 
in the case of a HAL/S-FC library routine, NEW R3 is set to zero. See Section 3.1 .1 .7 
for a definition of the local data area. 
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R0: 
Stack ptr 




minimum size: 
1 8 halfwords 



10 
12 
14 
16 
18 



lower address 

"pushed" 
stack frames 



PSW (left half) 



old stack ptr 



new R1 



new R3* 

(local_data 

ptr) 



Fixed _Arg #1 



Fixed _Arg #2 



Fixed _Arg #3 



Floating Arg #1 ,etc 



ERROR Vector 



User Data 



Temporaries 



available for 
called routines 



two halfwords wide 
higher address 



Figure 3-2 Stack Layout 



R0 

R1 
R2 

R3 



R4 
R5 
R6 
R7 



REGISTER SAVE 
AREA 



optional area 
defined by each 
routine 



* For HAL/S blocks only 
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3.1 .1 .7 Local Block Data Areas 

During execution of a HAL/S-FC program, certain machine registers have dedicated 
uses as described in Section 3.1 .1 .1 . In particular, register R3 is a local addressing 
register which points to the local Block Data Area for the block in execution. These R3 
values are saved on the runtime stack as indicated in Section 3.1 .1 .6. The format of a 
local Block Data Area is the subject of this section. The HAL/SDL ICD contains the 
controlling definitions of these areas. 

Block Data Areas are created by the compiler and are part of the #Dnnnnnn CSECT 
generated for a compilation unit. A Block Data Area may exist for any Program, 
Procedure, Function, Update Block, or Task. The compiler-emitted code for block entry 
(as defined in Section 3.1 .1 .6) loads R3 with the address of the Block Data Area for the 
block being entered. The format of such an area is shown in the following diagram. 

Fields 



BL 



1 


Block ID 


2 


XU 


ONERRS 


ERRDISP 


3 


TYPE 


UNUSED 


RESERVE SVC# 


4 


UNUSED 


RELEASE SVC# 


5 


LOCK ID 



Field 

1. Block ID 



XU 



ONERRS 



ERRDISP 



TYPE 



Reserve 
SVC# 



Release SVC# 



2 

2 

2 1 

2 r only required if XU=1 

2 J 



Definition 

A 1 6 bit field uniquely identifying the HAL block. The first 9 bits 
are a "compilation number" supplied by the user via the 
COMPUNIT compiler option. The last 7 bits are a block count 
generated internally for each new block within a compilation unit. 

EXCLUSIVE/UPDATE flag (1 bit). Set to one if block is either an 
UPDATE block or has the EXCLUSIVE attribute. 

(6 bits). The number of discrete errors for which an ON ERROR 
statement exists in the block. 

(9 bits). The displacement in half words from the stack frame 
pointer register (R0) to the error vector. 

(1 bit). Set to zero for EXCLUSIVE procedure or function. If an 
UPDATE block, set to one if shared data variables are read only. 
Set to zero if shared data variables are to be written. 

(8 bits). SVC number for the reserve SVC: 

15 for a code block 

1 6 for a data area. 

(8 bits). SVC number for release SVC: 

17 for a code block 

1 8 for a data area. 
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5. Lock ID (1 5 bits). An indicator of which code block or data areas are 

being used. For a code block this is the address of the 
EXCLUSIVE DATA CSECT of the procedure/function. For a data 
area this is a bit pattern indicating which data areas (by lock 
groups) are involved. If the "master lock" was specified, the bit 
pattern will be all ones. 

3.1.1.8 Parameter Passing Conventions for User-Written Routines 

To the extent possible, HAL/S parameters are passed via registers. Scalar parameters 
are passed in floating point registers. All others are passed in general registers. The 
following rules describe how the registers are designated, and what they contain for 
each type of parameter. 

General purpose registers 5-7 and floating point registers 0, 2, 4 are available for 
parameter passing. If the supply of registers is exhausted before the parameter list, the 
balance of the parameters are passed in memory locations. All parameters are located 
via the stack register (0). 

Allocation of general and floating registers is carried on in parallel. If no scalar 
parameters exist, no floating point registers will contain parameters. 

General purpose registers 5 through 7 are automatically contained in the stack 
beginning at displacement 12 10 . Floating point registers are not automatically saved, 
and it is the responsibility of the called program to do so. Storage locations are 
reserved in the stack for this purpose as described below. Parameters which cannot be 
passed in registers are automatically stored in the called procedure's stack by the 
caller. The allocation of these stack locations is identical to the allocation for floating 
point values. Note that, unlike ordinary HAL/S variable allocation, parameter allocation 
is not subject to reordering to minimize alignment conflicts. 

The first available stack location is at 1 8 10 off the stack register. All parameters are 
assigned storage in order starting at this point (the exception being parameters 
contained in general registers 5 through 7, which are allocated space in the register 
save area as described above). Any necessary alignment is performed as needed. 

Arguments are either input type or ASSIGN type (Input types are those whose values 
will not be changed by the called routine). The actual information which is passed for a 
particular argument is dependent upon the following factors: 

• whether the argument is input or ASSIGN; 

• whether the HAL/S data type of the argument is an aggregate (i.e. more than one 
element, as in a matrix); 

• whether the argument has any arrayness or structure copies to be passed; and 

• whether any arrayness or structure copies are defined via an ARRAY(*) or 
-STRUCTURE^) specification. 
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The following table and list show the information which is passed for an argument with 
particular attributes. 


Data Type 
Argument Type 


Integer 


Scalar 


Bit 


Character^) 


Vector 


Matrix 


Structure 


Input (no arrayness or copies) 


1 


2 


3 


4 


5 


6 


7 


ASSIGN (no arrayness or 
copies) 


8 


8 


8 


4 


5 


6 


7 


Input or Assign (with arrayness 
or copies) 


9t 


9+ 


9+ 


10+ 


9+ 


9+ 


11 + 



t If the parameter is declared as ARRAY(*) or -STRUCTUREf), an additional parameter word is passed containing 
the value of the unspecified dimension. 



Key 

1 
2 
3 
4 
5 

6 

7 



8 

9 

10 



11 



Information Passed 

A halfword or fullword of data. 

A single or double precision floating point value. 

Up to 32 bits of data (halfword or fullword depending upon declared size). 

Address of the max-size byte of the character string. 

Address of the 0th item in the VECTOR (i.e. 1 item width ahead of the actual 

vector). 

Address of the 0th item as if the MATRIX were a VECTOR of length m x n. 

Address of the first location in the structure as defined by its template. (Note 

that item position within a template is subject to compiler reordering unless 

RIGID is used). 

Address of the data item. 

Address of the 0th item of the array. 

Two items are passed. The first is the address of the 0th array item. The 

second is the number of halfwords of memory occupied by one character 

string element (including the halfword containing the max and current size 

bytes). 

The address of the first data in the 0th copy. 



For all cases where auxiliary values are allocated for a single parameter (i.e. 
CHARACTER^) ARRAY or ARRAY(*)), the parameters (up to 3) must be contiguous. 
Thus, if more pointers are required than registers are available, then the whole 
parameter sequence will be pushed into the stack. 

Example: 

P: PROCEDURE (X, Y, I, J, K,Z,C,L) ; 
DECLARE SCALAR, X,Y,Z DOUBLE; 
DECLARE INTEGER, I, J ARRAY (*), K, L; 
DECLARE CHARACTER ( * ) ARRAY ( * ) , C ; 
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Upon entry to this procedure, the stack and registers are as follows: 











R0 + 12 1Q 


I 


unused 


+14 


address of th array 
element of J 


unused 


+16 


size of array J 


unused 


+18 


X 


+20 


Y 


+22 


K 


unused 


+24 


1 st word of Z 


+26 
+28 


2nd word of Z 


address of array 
element of C 


unused 


+30 


# HW occupied by 
one element of C 


unused 


+32 


size of array C 


unused 


+34 


L 


unused 



also in R5 



also in R6 



also in R7 



also in F0 



also in F2 



y also in F4, F5 



Figure 3-3 
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3.1 .2 Integer and Scalar Operations 

Nomenclature 

The register R is any of the available set of accumulators. The terms I, l 2 , S, and S 2 
refer to the single and double precision versions of Integer and Scalar values 
respectively. It is assumed that any implicit precision or type conversions have been 
accomplished prior to generating the code sequences shown below. 

3.1.2.1 Arithmetic Operators 

Integer and scalar arithmetic operators generally employ two operands, denoted as X 
and Y. X is assumed to be loaded into register R x unless otherwise noted. If Y is also 
in a register, it is represented by the form R y . 

Operation Type Code Alternate Code 

X + Y: I AH R X ,Y AHI R x ,Y f 

1 2 A R X ,Y AR R x ,R y 

S AE R X ,Y AER R x ,R y 

S 2 AED R X ,Y AEDR R x ,R y 

X- Y: Similar to X + Y except that the subtract operator is 

used (For example, SH in place of AH in the above list). 

(Multiply) 

X Y: I MH R X ,Y MIH R X ,Y + 

SLL R x ,15 

1 2 M R X ,Y MR R x ,R y 

SRDA R x ,l 

S ME R X ,Y MER R x ,R y 

S 2 MED R X ,Y MEDR R x ,R y 

t Used if Y is a literal. 

Note that the shift operations used in the integer multiplications are required to 
correctly normalize the result in the proper registers 

Certain constant multipliers are optimized to avoid using actual multiply instructions. 
They are described below. 
Operation Type Code Alternate Code 



X/Y 



I 2 n 


SLL 
AR 


R I# n, n>l 
R I ,R I ,n=l 








I 2 2 n 


SLL 
AR 


R I# n, n>l 
R I ,R I/ n=l 








X 1 


no c< 


Dde for any 


type 




S 2 


AER 


R S / Rs 








S 2 2 


AEDR 


R S / Rs 








S 


SER 


R X +1,R X +1 




SER 


R X +1,R X +1 




DE 


R X ,Y 




DER 


R x , R y 


s 2 


DED 


R X ,Y 
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The DED and DEDR instructions are broken on the AP-101S machine. Thus, the 
compiler emits the following code sequences in place of these instructions: 



Operation 


Type 


Code 




Alternate Code 


X/Y 


s 2 


LER 


R a+1' R x+1 


LER 


R a+1' R x+1 






LER 


R a , R x 


LER 


R a , R x 






DE 


Rx'Y 


DER 


R X' R y 






LER 


R b+1' R x+1 


LER 


R b+1' R x+1 






LER 


R b ,R x 


LER 


R b' R x 






MED 


Rb>Y 


MEDR 


R b' R y 






SEDR 


R b ,R a 


SEDR 


R b' R a 






DE 


R b>Y 


DER 


R b' R y 






SEDR 


R X' R b 


SEDR 


R X' R b 



where the result resides in the R x ,R x+ i register pair. 

In the special case where a double precision result is divided by itself, a double 
precision "1 " is loaded directly into the result register rather than executing the 
DED/DEDR workaround sequence. The code sequence for this case is: 

Operation Type Code 



x/x 



LFLI 
LFLI 



R x ,l 



R 



x+1 



,0 



where the result resides in the R X ,R X +1 register pair. 



X**Y: The exponentiation is performed by subroutine. The patterns shown for I and S 
are identical to those which will be generated for l 2 and S 2 , except for the obvious 
differences: 



1 



1**1 


LH 


5,X 




CVFL 


0,5* 




LH 


6,Y 


g**I 


LH 


6,Y (see note 




LE 


0,X 


g**g 


LE 


2,Y 




LE 


0,X 




ACALL 


aPWR(3 



Argument Setup 



J 

} Actual Call 
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where a and (3 represent the types of operands X and Y respectively: 



Type of X 


a 


Type of Y (3 


Single precision integer 


l 


single precision integer H 


double precision integer 


r E 


double precision integer I 


single precision scalar 


J 


single precision scalar E 


double precision scalar 


D 


double precision scalar D 


single precision integer 


H* 




double precision integer 


I* 





Return is in F0 for a of E or D; in R5 for a of H or I. 

* if Y operand is a positive integer literal, the CVFL conversion is eliminated and the 
PWR routine invoked is ocPWRH or aPWRI. 

Note: Scalar expressions raised to integer literal powers from 1 to 16 are performed in 
line via repeated multiplication, using the binary powers algorithm. The following 
examples should serve to illustrate the method. 



Operation 


Type 


Code 


Alternate Code 


X**l: 




No code generated. 


X**2 : 


s 


MER 


R x , R x 


X**3 : 


s 


LER 


T ' x 






MER 


R x , R x 






MER 


T ' x 






(resi 


Lit in R T ) 


X**6: 


s 


MER 


R X ,R X 






LER 


K.n-i , K-y 






MER 


R X ,R X 






MER 


R T , T x 






(resi 


Lit in R T ) 


For type S 2 , 


the instruction MEDR is used in place of MER. Two LERs must be used in 


place of one 








Operation 


Tvoe 


Code 





Operation 


Type 


Code 


+x 




No code generated 


-X 


i,i 2 


LACR R X ,R X 




s 


LECR R x , R x 




s 2 


LED R X ,X 
LECR R x , R x 



3.1.2.2 Comparison Operators 

The full complement of relational operators is allowed for Integer or Scalar operations 
between single quantities. Only equal or not equal operators are allowed for arrayed 
comparisons. No logical variables are created by comparisons. Instead, branching to 
one of two points is used for true/false relations. 
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Operation Type Code Alternate Code 

X <OP> Y: I CH R X ,Y 

BC COND, not -true -label 

-L 2 (- x' C-R K. x , K.-y 

BC COND, not -true -label 

S CE R x' v CER R x' v 

BC COND, not -true -label 

S 2 SED R X ,Y SEDR R x ,R y 

BC COND, not -true -label 

Note: For comparisons to the literal 0, the condition code is used directly. If the 
condition code is not valid, the instruction LR or LER is used to set it. 

3.1.2.3 Conversions 

Where necessary, conversions are performed in intrinsic or library functions. Some 
conversions do not require any generation of code. 

Integer Conversions 



Operation 


Code 




I TO S 


LH 


R X ,X 




CVFL 


F X' R X 


I TO S 2 


LH 


R X ,X 




CVFL 


F X' R X 




SER 


F t F i 

L X+l ' L x+1 


I 2 TO S 


L 


5,X 




ACALL 


ITOE 


I 2 TO S 2 


L 


5,X 




ACALL 


ITOD 


I, I 2 TO BIT 


No code necessary 


I TO CHAR 


LH 


5,X 




LA 


2 , temp-string-area* 




ACALL 


HTOC 


1 2 TO CHAR 


L 


5,X 




LA 


2 , temp-string-area f 




ACALL 


ITOC 


I TO I 2 


SRA 


R x ,16 


I 2 TO I 


SLL 


R x ,16 



t temp-string-area contains converted string. 
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Scalar Conversions 



Operation 


Code 




Alternate Code 


S TO I,I 2 


LE 


0,X 


LER , R x 




ACALL 


aTOp 




S 2 TO I,I 2 


LED 


o,x 


LEDR , R x 




ACALL 


aTOp 





TYPE OF SCALAR 



a 



TYPE OF INTEGER 



Single Precision E 

Double Precision D 



Single Precision H 

Double Precision I 



S,S 2 TO BIT Same as for scalar to integer 

S TO CHAR LE 0,X 

LA 2 , temp-string-area t 
ACALL ETOC 



s 2 


TO CHAR 


LED 


0,X 






LA 


2 , temp-string-area t 






ACALL 


DTOC 


s 


TO S 2 


LE 


R X ,X 






SER 


R X+1' R x+1 



T temp-string-area contains converted string. 

3.1.2.4 Assignments 

For all assignments, type conversion may take place across the assignment operator. 
For multiple assignments, the left hand side operands are grouped by data type to 
minimize the number of conversions performed. The order in which the groups are 
processed is determined by the following table: 

Right Hand Operand Type 

Left Hand 



Type Ordering I 



V 



First 



I 

I 2 
Char 

S 2 

S 



Char 

S 2 

S 

I 



s 

Char 

So 



Char 

S 

I 2 
I 



Last 



Vector -Matrix 



Character is always performed before any right hand side conversion is performed. 
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The following sequences assume that R x has already had the required integer or scalar 
conversions performed as described in Section 3.1 .2.3. 
Operation Type of Y Code 

Y = X; I f STH R X ,Y 

1 2 ST R X ,Y 

S STE R X ,Y 

S 2 STED R X ,Y 

t If X is an integer literal of value or-1 , then the following code will be generated: 

Y = 0; I ZH Y 

Y = -1; I SHW Y 

R x is also marked as now containing the value Y. Subsequent usages of Y may use this 
register in lieu of the copy of Y in memory until such time as the contents of this register 
are destroyed or a label is generated. 

3.1.3 Bit String Operations 

3.1.3.1 Bit String Operators 

Bit string operators include the following: AND (&), OR (|), and CAT (II). They generally 
employ two operands, denoted here as X and Y (of lengths N x and N y respectively). X 
is assumed to be loaded into register R x unless otherwise noted. If Y is also in a 
register, it is represented as R y . Note that the & and | operations will pad the bit length 
of the shorter bit string to the length of the longer bit string. 
Operation Bit Length Code Alternate Code 

NHI R x , ' Y' f 
NR R x ,R y 

OHI R x , ' Y' f 
UK -^x ' v 



X&Y 


N x/ Ny<16 


NR 


R x , R y 




N x ,N y >16 


N 


R X ,Y 


X | Y 


N x ,N y <16 


OR 


R x ,R y 




N x ,N y >16 





R X ,Y 


X Y 


N y <16 


SLL 


R x ,N y 






OR 


R x ,R y 




N y >16 


SLL 


R x ,N y 









R X ,Y 



OR R x , R v 



Used only when Y is a bit literal. 
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3.1.3.2 Bit String Comparisons 

The only possible relational operators for bit strings, as with bit operators, are = or = 
(see Section 3.1 .1 .4). The bit strings are padded to be of equal lengths. No logical 
variables are created by comparisons. Instead, branching to the "not-true-label" occurs 
with the "not true" condition. 

Alternate Code 

R X ,Y CHI R x , ' Y' 1 

COND , no t - 1 rue - 1 abe 1 

COND , not - true - label 
Used only when Y is a bit literal. 



Operation 


Bit Lenath 


Code 


X<OP>Y 


N x ,N y <16 


CH 
BC 




N x ,N y >16 


C 
BC 



3.1.3.3 Component Subscripting 

Component subscripting for bit strings consists of shifting and &'ing out unwanted 
components of the subscripted bit string. The resultant bit string length, N r , determines 



jN 



a binary mask, whose decimal value is 2 Nr -1 , and bit number "I" of the original bit string 
is the last component of the resultant bit string . 

Operation Bit Length Code 



-"■subscript "x 



■"variable "x 



subscript 



t The mask value is equal to (2 Nr -1) 



SRL 

N 

LAC 

R 

AH I 

SRL 

N 



R X ,N X -I 
R x , mask t 
Rj,Rj 

R r ,N x 
R x ,0(R T ) 

R x ,mask t 



Examples of Subscript Forms 


Subscript 


I 


N r 


3 TO 10 
6 AT 11 

9 
8 AT J 

K 


10 
16 

9 
J + 7 

K 


8 
6 
1 
8 

1 
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3.1.3.4 Bit Conversions 

When necessary, conversions are performed in intrinsic or library functions. Some 
conversions do not require any generation of code. 

Operation Bit Length Code Alternate Code 

BIT TO I No code necessary 

BIT TO I 2 LH R X ,X ] 

r SRA R x ,16 
SRA R x ,16 J 



BIT TO S,S 2 N x <16 



N x >16 



BIT TO CHAR N.^16 



N x >16 



LH 

CVFL 

L 

ACALL 

LH 

SRL 



LA 

LHI 

ACALL 



5,X 
0,5 
5,X 

ITOE 

5,X 

5,16 

5,X 



LR 



LR 



5,R, 



5,R, 



r set up of bit-type 
J argument 



2 , temp-string-area f ] 
6,N X ' ~ )■ 
BTOC J 



actual 

calling 

sequence 



BIT TO CHAR @<radix> 



Same as BIT TO CHAR except call to BTOC is 
replaced as follows: 



<radix> 

BIN 

OCT 

DEC 

HEX 

BIT TO BIT TN x >N y l NHI 

LN y <16j 

N y >16 N 

t temp-string-area contains converted string. 
t" 1 " The value of the mask is 2 N y-1 . 



routine 

BTOC 
OTOC 
KTOC 
XTOC 



R x ,2 



Ny_ 



R x , mask 



tt 



3.1.3.5 Bit Assignments 

The following sequences assume that R x has already had the required conversions 
performed as described in Sections 3.1 .3.3 or 3.1 .3.4. 
Operation Length of Bit String Y Code 



Y = X 



N y <16 
N y >16 



STH 
ST 



R X ,Y 1 



Note: If N x > N y and N Y is not exactly 1 6 or 32, then the following instruction must be added: NR X , F'2 Nr -1 ' 
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If the right hand side of the assignment (X) is a BIT literal as described below, and 
N y < 16, then the following code is generated: 

Y = BIN' ' ; N y <16 ZH Y 

Y = BIN (16) 'l 1 ; N=16 SHW Y 



3.1.3.6 Partitioned Bit Assignments 

The following sequences assume that R x has already had the required conversions 
performed as described in Section 3.1 .3.3 or 3.1 .3.4. Definitions of I, N y , and N r are as 
described in Section 3.1.3.3. 
Operation Length of Bit String Y Code 



■ subscript 1 



=X; 



■subscript 



=X; 



N y <16 



17<N y <32 



LH 


Rx 


X 


LH 


R v 


Y 


SLL 


Rx 


N v -I 


XR 


R x 


R y 


NHI 


R x 


mask 


XR 


R x 


R y 


STH 


R x 


Y 


L 


R v 


Y 


L 


R x 


X 


SLL 


R v 


N y -I 


XR 


R y 


R x 


N 


Ry 


mask 


XR 


R y 


R x 


ST 


Rv 


Y 



tt 



t Mask: The mask used in a bit store is computed as follows: (2 Nr -1)(2 Nx_l ). In other words, the mask is a 
sequence of N r bits shifted left N x -I bits. 

tl" The value of the mask is 2y-1 . 

If the right hand side of the assignment (X) is a BIT literal containing either BIN'O' or 
BIN(N y ) '1' then if N y < 16 and Y is addressable in SRS format, then the following code 
is generated: 

Y ll TO i3=BIN' 0' ; N y =16 ZB Y,B'111000' 

Y 10 TO i2=BIN , lll l ; N y =16 SB Y,B' 1110000 ' 

If N y >16 then the following code is generated: 

Y 13 T0 20 =BIN'0'; N y =32 



L R x ,=X'FFF00FFF 

NST R X ,Y 



■17 TO 20=BIN'lll'; N y =32 



L R X ,=X' 00007000 1 

OST R X ,Y 
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3.1 .3.7 Bit Tests 

IF X N„ 



IF X 



10 



N x =16 



or 



TH 


X 


BZ 


<not true label > 


TB 


X,B' 1000000 ' 


BZ 


<not true label > 


LH 


R X ,X 


SRL 


R,6 


NHI 


R,B' 1 ' 


BZ 


<not true label> 



IF 



X 



Same as IF X except BZ changed to BNZ instruction. 



3.1.4 Character String Operations 

3.1.4.1 Character String Operators 

The only character string operator is the CAT (II) operator employing two character 
string operands denoted here as X and Y (of lengths N x and N y respectively). Unless 
otherwise noted, X is assumed to be loaded into register R x . If Y is also in a register, it 
is represented as R Y . 



Operation 


Code 




X II Y 


LA 


P3,Y 




LA 


P2,X 




LA 


PI , temp-string-area 




ACALL 


CATV 



3.1 .4.2 Character String Comparisons 

The full set of relational operators are allowed for character strings (see Section 3.1 .1 .4 
for condition codes). Characters with different lengths are always unequal. No logical 
variables are created by comparisons. Instead, branching to the "not-true-label" occurs 
with the "not true" condition. 



Operation 

X <OP> Y 



Code 



<OP> 


a 


— / 

— 1 = 




</ >, 
<=, 

> = 


c 



LA 


P3,Y 


LA 


P2,X 


ACALL 


CPRa 


BC 


COND , no t - 1 rue - 1 abe 1 
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3.1.4.3 Component Subscripting 

Component subscripting for character strings consists of setting the initial, Nj, and final, 
N f , index values of the subscripted components into registers 5 and 6 respectively, and 
then branching to the CASP intrinsic. 
Operation Code Alternate Code 

" = -^subscript ' ^A PI , Y 

LH 5 , Ni 

LH 6 , N f LR 6,5} if only one component 

ACALL CASP 

3.1.4.4 Character String Conversions 

Where necessary, conversions are performed in intrinsic or library functions. 



Operation 




Code 


CHAR TO 


I 


LA 2 , char 
ACALL CTOH 


CHAR TO 


I 2 


LA 2 , char 
ACALL CTOI 


CHAR TO 


S 


LA 2 , char 
ACALL CTOE 


CHAR TO 


s 2 


LA 2 , char 
ACALL CTOD 


CHAR TO 


BIT 


LA 2 , char 
ACALL CTOB 



CHAR TO BIT @<radix> Same as CHAR TO BIT except call to BTOC is 

replaced as follows: 

<radix> routine 



BIN 


CTOB 


OCT 


CTOO 


DEC 


CTOK 


HEX 


CTOX 
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3.1 .4.5 Character String Assignments 

Either the receiver variable or the assigned variable in a character string assignment 
may be subscripted. The possible forms are shown below. When subscripting is used, 
a partitioning of a character string results. The initial element of this partitioned 
character string is signified by its index: Nj. Similarly the final element has the index N f . 
Some examples of HAL/S subscript forms and the resulting Nj and N f values are: 



Subscript Form 



Ni 



1 TO 3 
5 AT 2 



1 
2 



N f 



3 
6 



Operation 






Code 




Y=X 






LA 
LA 
ACALL 


P2,X 
PI, Y 
CAS f 


V — Y 

1 subscript - -"■ 






LA 

LA 

LHI 

LHI 

ACALL 


P2,X 
PI, Y 
5,N iy 
6,N fy 

CPAS f 


V— Y 

1 "-"-subscript 






LA 

LA 

LHI 

LHI 

ACALL 


P2,X 
PI, Y 
5,N ix 
6,N fx 
CASP f 


y — y 

x subscript -"-subscri 


pt 


LA 


P2,X 








LA 


PI, Y 








LHI 


5,N ix 








LHI 


6,N fx 








L 


7,H'Ni y ,N fy ' 








ACALL 
lied instead o 


CPASP 15 


t For REMOTE data 


CASR 


is ca 


f CAS, CASRP for CASP, etc 



3.1 .5 Vector Matrix Operations 

3.1 .5.1 Vector-Matrix Operators 

Vector Matrix operators usually operate on two arguments according to the conventions 
stated in Section 5.2. Since 3-vectors, and 3x3-matrices have special library routines, 
their code is listed in the column labeled "3-code", while the code for any other vectors 
or matrices is listed in the "n-code" column. 
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Operation 

V1+V2 



V1+V2 



VI -V2 



Type 


n-code 








3-code 




single 


L 


R, =H T l,n-l ' 






L 


R, =H' 1,2 ' 


loop: 


LE 


FR, V2 (R) 




loop: 


LE 


FR,V2 (R) 




AE 


FR, VI (F) 






AE 


FR,V1 (R) 




STE 


FR, temp -area 


(R) 




STE 


FR, temp-area (R) 




BIX 


R, loop 






BIX 


R, loop 


double 


L 


R, =H T l,n-l ' 






L 


R, =H' 1,2 ' 


loop: 


LED 


FR, V2 (R) 




loop: 


LED 


FR,V2 (R) 




AED 


FR, VI (R) 






AED 


FR,V1 (R) 




STED 


FR, temp -area 


(R) 




STED 


FR, temp-area (R) 




BIX 


R, loop 






BIX 


R, loop 



Same as V1+V2 except that an SE instruction is used instead of an AE 
instruction for single precision. For double precision, an SED is used instead of 
an AED. 



-VI 



single 


L 


R, =H' l,n-l ' 


L 


R, =H' 1,2 ' 


loop: 


LE 


fr,vi(r) loop: 


LE 


FR,V1 (R) 




LECR 


FR, FR 


LECR 


FR,FR 




STED 


FR, temp-area (R) 


STED 


FR, temp-area (R) 




BIX 


R, loop 


BIX 


R, loop 



-VI 



double Same as -V1 single, except that an LED is used in place of the LE 
instruction. 



VI V2 


sin 


gle 


LA 


P3, V2 


LA 


P3,V2 


VI : length n 






LA 


P2, VI 


LA 


P2,V1 


V2 : length m 






LA 


PI , temp-area 


LA 


PI , temp-area 


result is nxm 






LHI 


5,n 


ACALL 


V06S3 


matrix 






LHI 
AC ALL 


6,m f 
V06SN 







VI V2 



double Same as for single precision, except that the routines branched to are 

V06DN and V06D3 for n-vectors and 3-vectors respectively, 
single (illegal operation) la P3,V2 

LA P2,V1 

LA PI, temp-area 

ACALL VX6S3 

double Same as for single precision, except that VX6D3 is branched to, rather 

than VX6S3. 
single la P3,V2 la P3,V2 

LA P2,V1 LA P2,V1 

LHI 5,n ACALL W6S3 n 

ACALL VV6SN n 

t If both V1 and V2 are the same size, then this instruction will be: LR 6,5. 
ft The scalar result of the dot product is left in register F0. 



V1*V2 



V1*V2 



V1»V2 
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Operation 

V1»V2 



Ml + 2] 
OR f 
M1-2J 



Type n-code 



3-code 



double Same as for single precision, except that the routines branched to are 
VV6DN and VV6D3 for n-vectors and 3-vectors respectively. 

Same code as that for adding or subtracting two vectors of length equal to the 
product of the row size and the column size of M1 and M2. 



VI M2 

VI : length n 

M2 : nxm 



single 



LA 


P3,M2 


LA 


P2,V1 


LA 


PI , temp-area 


LHI 


5,n 


LHI 


6 , m 1 " 


AC ALL 


VM6SN 



LA P3,M2 

LA P2 , VI 

LA PI, temp-area 

ACALL VM6S3 



VI M2 



double Same as for single precision, except that the routines branched to are 
VM6DN and VM6D3 for the general case and the size 3 cases 
respectively. 



Ml VI 
Ml : nxm 
VI :m 



Ml VI 



LA P3,V1 

LA P2,M1 

LA PI, temp-area 

ACALL MV6S3 



single la P3,vi 

LA P2,M1 

LA PI, temp-area 

LHI 5,n 

LHI 6 , n 

ACALL MV6SN 

double Same as for single precision, except that routines branched 
to are MV6DN (n code) and MV6D3 (3 code). 



1". 


single 


L 


R, =H' l,n-l ' 


L 


R,=H' 1,2 ' 


I2 n , 












S 


loop: 


LE 


FR,V1(R) loop: 


LE 


FR,V1 (R) 






ME 


FR,S 


ME 


FR,S 






STE 


FR, temp-area (R) 


STE 


FR, temp-area (R) 






BIX 


R, loop 


BIX 


R, loop 


S2 


double 


L 


R, =H' l,n-l ' 


L 


R,=H T 1,2 ' 




loop: 


LED 


FR,V1(R) loop: 


LED 


FR,V1 (R) 






MED 


FR,S2 


MED 


FR,S2 






STED 


FR, temp-area (R) 


STED 


FR, temp-area (R) 






BIX 


R, loop 


BIX 


R, loop 



t If M2 is of size nxn, then this instruction is: LR 6,5. 

t" 1 " Note that in the case of single and double precision integers, they are first converted to scalar form whose value is 
in F0. 
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Vl/I.. 
Vl/S.. 






I VI, 


12 


VI, 


S VI, 


S2 


VI 


Ml I, 
Ml S, 


Ml 
Ml 


12, 
S2 


Ml/ 1, 

Ml/S, 


Ml, 
Ml, 


/I2 
/S2 


I Ml, 
S Ml, 


. 12 
. S2 


Ml 
Ml 
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Type n-code 3-code 

Same as for V1 I, etc., except that a DE instruction is used instead of ME. 

(DED" 1 " is used instead of MED for double precision.) 

Exactly the same as for V1 I, etc. 



Same as for V1 I, etc., except that the length value (n) is the product of 
the row size and the column size of M1 . 

Same as for V1/I, etc., except that the length value (n) is the product of 
the row size and the column size of M1 . 

Exactly the same as for V1 I, etc., except that the length specified in 
R5 is equal to the product of the row size and the column size of M1 . 

mi** 1 single lhi 6,i Same as for "n-code" where n=3. 

(where i is either LA P3 , temp-storage-area 

a literal or a LA P2 , Ml 

constant integer) LA PI , temp-storage-area 

LHI 5,n 

ACALL MM17SN 

mi** 1 double Same as for single precision, except branches to the 

MM17DN. 

mi** single la p2,mi 

LA PI , temp-storage-area 
LHI 5,n 
ACALL MM15SN 

double Same as for single precision, except branches to MM15DN. 

single la p2,mi la p2,mi 

LA PI , temp-storage- 
ACALL area MM11S3 



Ml** 









Ml** 


T 






Ml: 


m 


X 


n 



LA 


PI , temp 




storage 




area 


LA 


5,n 


LA 


6 , m 



ACALL MM11SN 

* * r J 1 



mi x double Same as for single precision, except that the routine 

branched to is either MM1 1 DN or MM1 1 D3 for n x n matrices 
and 3x3 matrices respectively. 



t See Section 3.1 .2.1 for important information regarding the DED instruction. 
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Operation Type n-code 

mi M2 single 

Ml : k x m 
M2 : m x n 



3-code 



LA 


P3 , M2 LA 


P3,M2 


LA 


P2 , Ml LA 


P2,M1 


LA 


PI, temp-area LA 


PI , temp-area 


LHI 


5 , k ACALL 


MM6S3 


LHI 


6,111* 




LHI 


7V 




ACALL 


MM6SN 





Ml M2 



double Same as for single precision, except that the routines branched 
to are MM6DN and MM6D3 for the general case and the 3 x 3 
case respectively. 



* Either of the instructions may be of the form: LR 6,5 if n=k, etc. 

3.1.5.2 Conditional Operators 

The only comparison operators allowed for comparing vector and matrices are = or -, =. 
Since these comparisons are done on an element-by-element basis, the same routines 
that are used for size-n vectors are also used for size n x m matrices which are 
considered to be vectors of length n x m. No logical variables are created by 
comparisons. Instead, branching to the "not-true-label" occurs with the "not true" 
condition. 

Operation Type n-code 3-code 



vi <op> V2 single 



Vl<OP>V2 



Ml<OP>M2 
Ml , M2 : mxn 



Ml<OP>M2 



double 



LA P3,V2 

LA P2 , VI 

LHI 5,n 

ACALL W8SN 



LA 
LA 

ACALL 
BC 



P3,V2 
P2,V1 
VV8S3 
COND , not - true - label 



BC 



COND, not-true-label 



double Same as for single precision, except that the routines branched to are 
VV8DN and VV8D3 for n-vectors and 3-vectors respectively. 



single 



LA 


P3,M2 








LA 


P3,M2 


LA 


P2,M1 








LA 


P2,M1 


LHI 


5 , mxn 








LHI 


5,9 


ACALL 


W8SN 








ACALL 


VV8SN 


BC 


COND, not - 


-true- 


-labe 


:1 


BC 


COND, not -true -label 



Same as for single precision, except that the routine branched to is 
VV8DN. 
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3.1.5.3 Component Subscripting 

Possible components of matrices include submatrices, vectors, column vectors, and 
single components. Possible components of vectors include subvectors and single 
components. The resultant type of component is determined by the subscripts used. 
Note that double precision operations are not shown - their code is identical except that: 
a) the called routines will be VV1 DN rather than VV1 SN, etc.; b) the index multiplier is 4 
instead of 2. Register 7, when used, contains skip values between elements in 
partitioned matrices (see Section 3.1 .1 .3). 
Operation" 1 " n-code 3-code 

Y=V X . LE R x ,V x +2i N.A. 

1 STE R X ,Y 



Y=V X . LH R z , I 

1 LE R X ' V x( R l) N - A - 

STE R X ,Y 

V y .=X; LH R I# I 



LE R X ,X N.A. 

STE R X ,V Y (R I ) 

V y AT I =V x n AT I'' LH R I ' * 

AR Ri/Ri 

LA P2,V X (R I ) 

LA Pl,V y (R I ) 

LHI 5 , n 

ACALL W1SN 

M =M 

Y x m AT I,n AT J 

assumes M y is an m by n MATRIX 

LH Rj, I <same> 

MHI R I ,<column size of M x > 

SLL Rj,15 

AH R I# J 

AR Rj , Rj 

LA P2,M X (R I ) 

L 7,F'delta,0' 

LA PI , M y 

LHI 5 , m 

LHI 6 , n 

ACALL MM1SNP 

t i indicates integer literal, I indicates integer variable. 



LH 


Ri,I 


AR 


Rj, Rj 


LA 


P2,V x (Rj 


LA 


Pl,V y (Rj 


ACALL 


W1S3 



3-31 November 2005 



HAL/S Compiler System Specification 



USA003089 
32.0/17.0 



Operation" 1 

m x *,i=v x ; 



n-code 3-code 



LH 


Ri,I 


AR 


R I' R I 


LA 


P2,V X 


LHI 


6, 


LHI 


7, delta 


LA 


P1,M X (R I 


LHI 


5 , n 



ACALL W1SNP 



i indicates integer literal, I indicates integer variable. 



LH 


Ri,I 


AR 


R i' R i 


LA 


P2,V X 


LHI 


6,0 


LHI 


7, delta 


LA 


P1,M X (R T 



ACALL W1S3P 



3.1.5.4 Conversions 

MATRIX/VECTOR conversions are done by considering matrices as vectors, and 
assigning the required components to the receiver variable. More than 1 argument 
requires multiple calls to the vector assign routine (as shown in the second sequence 
below). Use of double precision operands will cause branches to VV1 DN. Otherwise, 
the code is unchanged. 

Operation n-code 

VECTOR (M x ) 

Produces vector of size equal to product 
of dimension of matrix: n x m. 



MATRIX (V x ,V y ,V z 



LA 


P2,M X 




LA 


PI , temp- 


-area 


LHI 


5 ,nxm 




ACALL 


W1SN 




LA 


P2,V X 




LA 


PI , temp- 


-area 


LHI 


5,n x 




ACALL 


W1SN 




LA 


P2,V y 




LA 


PI , temp- 


-area+DELTAl 


LHI 


5,n y 




ACALL 


W1SN 




LA 


P2,V Z 




LA 


PI , temp- 


-area+DELTA2 


LHI 


5,n z 




ACALL 


W1SN 





1" This is An example using several vectors to illustrate the multiple calling of the W1 SN (or W1 S3) routine. It 
also applies to the VECTOR shaping functions. 
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3.1.5.5 Assignments 

Vectors and matrices may be assigned to other vectors and matrices of the same 
dimensions. In addition, they may have all elements set to zero by a statement of the 
form: 



M=0; or V=0; 

Operation Type 
single 

loop: 



n-code 



3-code 



v x =v y 



R,=H' l,n-l 



FR,V y (R) 



V x =0 



single 
loop: 



L 

LE 

STE FR,Vx(R) 

BIX R,loop 

L R,=H'l,n- 

SER FR,FR 

STE FR,V X (R) 

BIX R,loop 



loop : 



L 


R,=H' 1,2 


LE 


FR,V y (R) 


STE 


FR,Vx(R) 


BIX 


R, loop 


L 


R,=H' 1,2 


SER 


FR,FR 


STE 


FR,V X (R) 


BIX 


R, loop 



M X =M. 



M x =0 



v x =v y 

M x =M y 

V x =0 
M x =0 



Same as for V x =V y , except that the loop count, n-1 , is replaced by 
(mn)-1. 

Same as for V x =0, except that the loop count, n-1 , is replaced by 
(mn)-1. 

double Same as single, but use LED, STED sequence instead of LE, STE 
instructions. 

double Same as single, but use SEDR, STED sequence instead of SER, 
STE instructions. 



For the following operations the compiler will attempt to generate in-line code 
sequences, including as many operations within a single loop as possible: 

VECTOR/MATRIX ADD 
VECTOR/MATRIX SUBTRACT 
VECTOR /MATRIX NEGATE 
VECTOR/MATRIX- SCALAR PRODUCT 
VECTOR/MATRIX- SCALAR DIVIDE 
VECTOR/MATRIX ASSIGNMENT 

In many cases, the stores into temp-areas, as shown in the prototype instruction 
sequences, will not be necessary, unless the resultant VECTOR or MATRIX needs to 
be passed from one loop to another, or to a library routine. For example: 
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HAL/S Code 

DECLARE 

VECTOR, V, W, X, Y,Z; 

V=V+ (W+X) *Y-Z; 

LI 



L2 



L 


R,=H'1,2 ' 


LE 


FR,W(R) 


AE 


FR,X(R) 


STE 


FR, tempi (R 


BIX 


R,L1 


LA 


P3,4 


LA 


P2, tempi 


LA 


PI, temp2 


ACALL 


VX6S3 


L 


R,=H' 1,2 ' 


LE 


FR,V(R) 


AE 


FR, temp2 (R 


SE 


FR,Z (R) 


STE 


FR,V(R) 


BIX 


R,L2 



In those cases where in-line code is not generated, the temporary area used to store 
the result of the last HALMAT operation before an assignment can be eliminated if the 
vector-matrix statement is of a suitable "form" for optimization and one of four 
conditions holds. The statement may not have multiple receivers; the single receiver 
must be a consecutive partition or be nonpartitioned. The precision of the right-hand- 
side of the statement must match the precision of the receiver. The receiver cannot be 
a remote variable, and neither the receiver nor the operand(s) of the final HALMAT 
operation can be name variables, or the terminal of a subscripted structure. Also, 
variable subscripts on any variables do not allow optimization processing to continue. 

Statements that meet these basic requirements can then be checked for the occurrence 
of a necessary and sufficient condition for optimization. The result of the final operation 
before the assignment will be stored directly in the receiver if at least one of the 
following conditions is true: 

1 . The receiver is nonpartitioned and the last operation before the assignment 
HALMAT is a "Class 3" operation. Class 3 operations include matrix-scalar and 
vector-scalar multiplication and division, vector-matrix addition and subtraction, 
vector and matrix negation and the built-in function, UNIT. 

The last operation is a "Class 1 " operation. The class contains only "matrix 
raised to 0th power." The result, the identity matrix, can be stored directly in 
any consecutive receiver. 
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2. The operand(s) are in temporary work areas. Nonconsecutive partitions are 
moved to work areas when the operands are processed. The result of a 
previous operation is also in a work area. Operands in work areas are disjoint 
from the receiver. This is important for "class 2" operations that use the 
elements of the vector or matrix, vector-vector, and matrix-matrix arithmetic, and 
matrix transpose and exponentiation (also, the built-in functions, TRANSPOSE 
and INVERSE). This condition can also hold for class 1 and class 3 operations. 
If the operation has two operands, both must be in work areas for this condition 
to be true. 

3. The operand(s) are nonidentical to the receiver. A receiver-operand pair is 
nonidentical if the operand is in a work area, or if neither variable is a formal 
parameter and the variables have different symbol table references, or if only 
one of the variables in a formal parameter and the NEST level of the 
nonparameterized variable is greater than or equal to the NEST level of the 
parameterized variable (again, symbol table reference cannot be the same). 

EXAMPLE 1 : PROGRAM ; 

DECLARE MATRIX (3, 3) ,S,T; 
PROC: PROCEDURE (A) ASSIGN (B); 

DECLARE MATRIX (3, 3) ,A,B,C; 
SUBPROC: PROCEDURE (X) ASSIGN ( Y) ; 

DECLARE MATRIX(3,3) ,X, Y,P,Q; 

TO 3 , * + ( -2 TO 3 , * ' 
TO 3 , * + Q2 TO 3 , * ' 







Y 2 TO 3 , * - 


x 2 






^2 TO 3,* = 


P 2 




CLOSE 


SUBPROC; 




CALL 


SUBPROC (A) ASSIGN (C) 


/ 


CLOSE 


PROC ; 







CALL PROC(S) ASSIGN(T); 
CLOSE EXAMPLE1; 

where 

X&Y are parameters, C is not 

NEST_LEVEL(Y) =2, 

NEST_LEVEL(C) =1. 
Y can be C - cannot assign directly. 
P&Q not parameters - ok to assign directly 

NEST_LEVEL(P) =2, 

NEST_LEVEL (A) =1. 

4. The operand(s) are disjoint with the receiver. A receiver-operand pair can be 
disjoint in two ways. If the pair is nonidentical it is, by default, disjoint. If both the 
receiver and the operand are consecutively partitioned, they are disjoint if the 
partitions do not overlap in any way. If the receiver and the operand have the 
same symbol table reference (are identical) then the two partitions can be 
disjoint in either "direction". 

For example, let A be a 4-by-4 matrix. Then, 

l to 2 * = 3 to 4 * "*" ••• and 
A 3 T0 4 '* =A 1 T0 2 * + — an d both disjoint pairs. 
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If the receiver and operand are possibly identical, then the pair can only be disjoint if all 
of the operand partition comes after the receiver partition. 

EXAMPLE2 : PROGRAM; 

DECLARE MATRIX (6, 3) ,A,D,E; 
PROC : PROCEDURE (B , C) ; 

DECLARE MATRIX (4, 3) , B , C ; 



1 TO 2 , * 
3 TO 4 , * 



= B 
= B 



3 TO 4 , * 
1 TO 2 * 



+ C 3 TO 4 , * ' 
+ C 3 TO 4 * ' 



CLOSE PROC; 
CALL PROC (A 



3 TO 6, 



,D 



A 



3 TO 4 , * 



= D 



3 TO 4 , * 



3 TO 6 , * ' ' 
?J 1 TO 2, * '• 



Pairs A-B & A-C disjoint 

Pair A-B not necessarily disjoint 

(B-l T0 2,* is really A 3 T0 4( *) 
A,D,E are, by default, disjoint 
because they are nonidentical 



CLOSE EXAMPLE2; 



If the operation has two operands, both receiver-operand pairs must be disjoint for this 
condition to be true. The nonidentical and disjoint checks are made at the same time, 
so this condition also holds if one pair is disjoint by disjoint partitioning and one pair is 
disjoint by being nonidentical. 

3.1.6 Structure Operations 

3.1.6.1 Structure Comparisons 

Structure comparisons may only be = or -,=. The comparisons are done by comparing 
corresponding terminal elements of the two structure operands in order of their natural 
sequence. Each terminal element is referenced by adding the displacement of the 
element to the address of the structure (see Section 3.1 .1 .3). No logical variables are 
created. Instead, branching to the "not-true-label" occurs with the "not-true" condition. 



Operation 

X<OP>Y 



for each terminal 



Code 

LA 2,X 

LA 3,Y 

LA 2, terminal#l (X) 

LA 3, terminal#l (Y) 

LHI 5, width 

BAL 4,CSTRUC 

.BC COND, not -true -label 



<same for all terminals> 



BC 7, true-label 
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3.1.6.2 Structure Assignment 

The assignment of both major and minor structures is done via the BLOCK MOVE 
algorithm. (Generally, this is an MVH code sequence.) 

Operation Code 



Y=X 


L 


R y , Constl 


(neither X nor Y REMOTE) 


L 


R x ,Const2 




MVH 


R y ,R x 




DC 


Y(Y) 


constl 


DC 


H'n' f 


const2 


DC 


Z(x) 


Y=X 


LA 


P2,X 


(X or Y REMOTE) 


LA 


PI, Y 




LHI 


5 , width 




ACAL 


MSTR 




L 





n is width of x in halfwords. 



3.1.7 Indexing and Arrayed Statements 

3.1 .7.1 Linear Array Indexing 

Linear array indexing is the use of subscripts, on an arrayed data type, to produce a 
one-dimensional resultant array. In the generated code, only one register - R a - is 
needed to keep track of the index value. An initial entry to the array loop (see Section 
3.1 .7.4), R a is initialized to a value of 1 . On each pass through the loop, R a is used to 
define a DELTA value to index the arrayed data (see Section 3.1 .3.3). Following this, at 
the end of the loop R a is incremented by 1 , and is tested to determine if all of the data 
has been utilized, as described in Section 3.1 .7.4. R a is any available indexing register. 
Its contents may not be altered during the course of an arrayed statement. If the index 
in R a must be shifted to access the word or doubleword data, it must be moved to 
another register to perform this shift. 

3.1 .7.2 Non-Linear Array Indexing 

Non-linear array indexing has more than one index which can change values to 
produce a multi-dimensional resultant array. The actual code generated, though, can 
only utilize one register - R a - for indexing. Thus, temporary storage is needed to store 
all but the inner-most index. As with linear indexing, all index values (both in R a and 
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temporary storage) are initialized to 1 . The DELTA value defining the index of each 
arrayed data item is then computed on the basis of the value of R a and the index values 
stored in memory (see Section 3.1 .3.3). Following this, each index value is tested 
against the size of the corresponding dimension (of the resultant array) to determine if 
all of the data has been utilized and/or which indices are incremented for the next 
iteration. An example of this is given in Section 3.1 .7.4. 

3.1.7.3 Array Indexing 

Arrays may be used in their entirety in HAL/S without explicit subscripting (for example 
assignment of two equally dimensioned arrays). However, the code generated is very 
similar to that for non-linear indexing, except that the indices are tested against the 
size of the corresponding declared dimensions of the arrays, rather than against the 
size of the corresponding dimensions of the subscripted array. An example of this is 
shown in the next section. 

3.1.7.4 Arrayness and Loop Generation 

This section has an example of each possible form of array loops, and how indexing is 
achieved within them. In general, an array loop consists of the following sections: 

a. initialization of index values; 

b. computation of address of array element from index value (see Section 3.1 .3.3); 

c. actual operation to be performed on the array element(s) (i.e. assignment, 
comparison, etc.); 

d. incrementing and testing index values. 

It should be noted that non-linear and array indexing produce multiple loops and 
indices. Since only a single register is available for indexing, temporary storage of 
index values for outer loops is employed. 

Operation Type Code 

Linear Indexing: L 7,=H'1,2' } (1) 

[X] = [Y] 3 at 2 [X] : ARRAY (3) SCALAR loop : LED 2,Y+4(7) ] 

r(2) 

[Y] : ARRAY (5) SCALAR STE 2,X(7) J 
DOUBLE 

BIX 7, loop } (3) 

Notes on above example: 

1 . initialize 

2. assignment 

3. increment and test index 



3-38 November 2005 





HAL/S Compiler System Specification 


USA003089 










32.0/17.0 


Operation 


Type 


Code 






Non-Linear 


Indexing : 








[i] = [v] 1/2 


TO 3 , * : 2 








[I] : 


ARRAY (2,4) INTEGER 








[V] : 


ARRAY (2,3,4) VECTOR 


L 


7,=H' 1, 1 ' 


1 




outer- loop : 


ST 


7 , tempi 


r (l) 

J 

} (2) 






L 


7,=H'1,3 ' 




inner- loop : 


LH 
SLL 


6 , tempi 
6,2 


1 






AR 


6,7 


r(3) 






MHI 


6,H'3 ' 








SLL 


6,15 


J 






LH 


5 , tempi 


' (4) 






SLL 


5,2 






AR 


5,7 


J 






LE 


0,V+100 (6) 


1 






STH 


5 , temp2 








ACALL 


ETOH 


r(5) 






LH 


6 , temp2 








STH 


5,1(6) 


J 






BIX 


7 , inner- loop 


} (6) 






L 


7 , tempi 


1 






BIX 


7 , outer-loop 


r(7) 



Notes on above example: 



1. 
2. 
3. 
4. 
5. 
6. 
7. 



initialization and storage of first index value 

initialization of second index value 

indexing of [V] 

indexing of [I] 

assignment of scalar value to an integer value 

incrementing and testing second index value 

incrementing and testing first index value 



Operation 

* * 

[M] = [N] 



lype 

* 

[M] , [N] : 
ARRAY (2,3) 
MATRIX (2, 4! 



Code 



L 

L 

MVH 



R M , constl 
R N , const2 

R M' R N 



constl DC Y(M) 

DC H v 96' 

const2 DC Z(N) 

Note: 96 is the size of N, (i.e. N is 2x3x2x4x2 = 96 halfwords long). 
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3.1.8 PROCEDURE/FUNCTION Calls 

The PROCEDURE/FUNCTION calling process consists of two parts: 

a. argument set up; and 

b. the actual branch to the subroutine. 

Argument set up uses registers 5-7 as needed for passing integers or bit strings, and/or 
pointers to vectors, matrices, character strings, arrays or structures. Floating point 
registers 0, 2, and 4 are similarly used to pass scalar arguments. Once all of these 
registers are utilized, all remaining arguments are placed in a run time stack for the 
procedure or function. 

The actual code generated sets up the arguments in the order that they appear in the 
HAL/S PROCEDURE or FUNCTION block definition statement. For example, if the 
function is: 

F: FUNCTION (integer_l , scalar_l, scalar_2 , vector_l , integer_2) ; 

then the registers are loaded in the order: 

register 7 using LH or L 

register 6 using LA to load the pointer to vector_l 

register F2 using LE or LED 

register F0 using LE or LED depending on the precision of scalar_l 

register 5 using LH or L depending on the precision of integer_l 

Once all arguments are set up, the actual branch is a BAL or SCAL instruction to the 
CSECT defined for the procedure or function. 

A leaf PROCEDURE/FUNCTION is one which has no stack requirements (i.e. no 
parameters, no stack temporaries, no local addressable data, no ON ERROR 
statements, and no intrinsic library calls). Such procedures may be called via BAL R4, 
<routine name>. These routines are exited using BCR 7,R4. 



Operation 

Argument 
Setup 



Arqs 

<3 non-scalar 



and <3 scalar 



Code 

LH 7,arg3 



LH 6,arg2 



LH 5,argl 



LE 4 , scalar-arg3 



LE 2 , scalar-arg2 



LE 0, scalar-argl 



Alternate Code 

L 7 , arg3 or 

L 7 , arg3 
A 

L 6 , arg2 or 

L 6, arg2 

A 

L 5 , argl or 

L 5 , argl 

A 

L 4 , scalar-arg3 

E 

D 

L 2 , scalar-arg2 

E 

D 

L , scalar-argl 

E 

D 
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Actual Call ACALL 


csect-name 






Operation Arqs Code 




Alternate Code 


Argument >3 non- scalar LH 


R, argn 


1 




Setup and/or >3 scalar STH 


R, stack 






• 




r 


1) non-scalar 
stores stack 


LH 


R, arg4 






STH 


R, stack 


J 




LE 


FR, scalar-argn 


1 




STE 


FR, stack 






. 




r 


2) scalar 


• 






stores 
into stack 


LE 


FR, scalar-arg4 






STE 


FR, stack 


J 




LH 


5, argl 


1 





Actual Call 

Notes on above example: 

1., 
2. 



LE 2 , scalar-arg2 
ACALL csect-name J 



Any additional arguments are generally loaded into any unused register 
and stored. The actual load op codes may be: L, LH, LA, LE, or LED, 
depending on the type of argument. Similarly, the stores op codes may be 
ST, STH, STE, or STED. If the argument already exists in a register, then 
the code generated will be only a store from that register into the stack. 

Loading of the first 3 non-scalar, and the first 3 scalar arguments. This is 
identical to the code shown in the first example above. 
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3.1.9 Block Definition 



3.1 .9.1 PROGRAM and TASK Definition 



Operation 




Code 




PROGRAM or 


block-name : 


LA 


, stack-start* 


TASK 








definition 












LA 


1 , program-data-csect 






NHI 


l,x' 7FFF' ft 






STH 


1,5(0) 






IAL 


, stack-size 






LA 


3 , local -data -area (1) 






LDM 


$ZDSESET tt 






STH 


3,9(0) 



t Omitted if SDL option is turned on. 

t" 1 " Only occurs if the DATA_REMOTE directive is in effect (See Section 4.0). 



3.1.9.2 PROCEDURE and FUNCTION Definition 

Both PROCEDURE and FUNCTION definitions are similar to PROGRAM and TASK 
definitions. However, floating point store instructions are needed to save any scalar 
argument passed via registers. 
Operation Code" 1 " [Alternate Code] 

PROCEDURE or 

FUNCTION 

definition 

[COMSUB only: LA 1 , Program-data- 
csect] 
block-name: NHI l^'VFFF 1 " 
STH 1,5(0) 
IAL 0, stack-size 
LA 3 , Local-data-area (1) 

[COMSUB only: LDM $ZDSESET tt ] 
STH 3,9(0) 

[EXCLUSIVE only: 

SVC Local -dataarea+2 (1) ] 
[STED 0, stack] 
[STED 2, stack] 
[STED 4, stack] 

t If PROCEDURE or FUNCTION is leaf (has no calls and no stack requirements) then no code is generated for the 
block entry. 

t" 1 " Only occurs if the DATA_REMOTE directive is in effect (See Section 4.0). 



STE 0, stack 
STE 2, stack 
STE 4, stack 
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3.1 .1 Flow of Control Statements 

3.1.10.1 IF... THEN ... ELSE 

The code shown below is for the most general form of the IF. ..THEN. ..ELSE 
statement. It is assumed that the condition code from the conditional expression has 
been generated (see previous subsections on conditional operations). 
Operation Code 

IF<cond exp > THEN <...> ELSE <...> BC cond, else- label 

[executable code for THEN clause ] 



else-label 



i 



r 



I J 
BC 7 , next -statement 

[executable code for ELSE clause I 

\ . r 



next - statement 



IF<cond exp>THEN<...> 



BC cond, next -statement 
[executable code for THEN clause I 



\ 



r 



next - statement 



3.1.10.2 DO FOR. ..Loops 

The DO FOR loop has two forms: the iterative, and the discrete. They may also cause 
termination of the loop by use of the clause UNTIL < >, or WHILE < >. The use of these 
clauses is shown for the case of the iterative DO FOR forms where the additional code 
needed has been labeled "UNTIL code" and "WHILE code". This same additional code 
is generated for the discrete DO FOR and is placed immediately before the executable 
code within the DO group (the same process as is illustrated with the iterative DO 
FOR). Note that the code only shows the use of a single precision integer index; 
double precision integers, and single or double precision scalars follow the same 
algorithm with the exception that the corresponding full word, or floating point 
instructions are used when dealing with the index variable. 
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Operation Code 

DO FOR I = a TO b BY c; + LHI 7 < a 

loop-begin: BC 7, test-label 

executable code within DO group 

repeat": LH 7, 1 + + + 

AH I 7,c 
test-label: STH 7, I 
CHI 7,b 
BC 6, loop-begin 
exit-label: 

code for statement 
following DO group 

DO FOR I = a TO b BY c ZH temp-area UNTIL code 

UNTIL <cond exp>; 

LHI 7, a 

BC 7, test-label 
END; loop-begin: TS temp-area 

BC 4 , f irst-statement 1 + + f I 
cond for exp 

rUNTIL code 
I 
BC cond, exit-label J 

first-statement: 

executable code within DO group 

repeat 1 1 : LH 7,1 

AHI 7,c 

test-label: STH 7, I 

CHI 7,b 

BC 6, loop-begin 

exit -label: . code for statement 
following DO group 



t Assumes a, b, and c are literal values. 

tf This is referenced by the REPEAT STATEMENT (see Section 3.1 .10.5). 

fft This instruction may be omitted if the REPEAT label is not actually used, and the loop index I is already in the 
designated register. 

"•"ftt jhis is done to avoid testing the <cond exp> until after executing through the loop at least once. 
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Operation 



DO FOR I = a TO b BY c 
WHILE <cond exp> 



END; 



DO FOR I = a 1 ,a 2 ,...,a n 



END; 



Code 



LHI 
BC 



loop-begin: 



BC 



7, a 

7, test-label 

code for cond exp 
cond, exit-label 



[WHILE code 



executable code within DO group 





LH 


7,1 




AH I 


7,C 


test-label : 


STH 


7, I 




CHI 


7,b 




BC 


6 , loop-begin 


exit-label : 




code for statement 
following DO group 



label-1: LHI 1 ,a Ll 

BAL 4, test -label 

label-2 : LHI 7,a 2 

BAL 4, test -label 



label-n: LHI 7 , a n 

LA 4, exit -label 

test-label: ST 4, temp-area 

STH 7 , I 



executable code within DO group 



repeat + : L 

BCR 
exit-label: 



4 , temp -area 

7,4 

code for statement 

following DO group 



DO FOR I = II TO 12 BY 13 



LH 



5, 12 



STH 5, temp-test 



END; LH 6,13 

t This is referenced by the REPEAT statement (see Section 3.1 .1 0.5). 
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Operation 



(11,12,13: variables) 



loop-begin: 



Code 

LH 7,11 

STH 6,temp-incr 

BC 7, test-label 

executable code within DO group 



repeat f : 


LH 


7, 


.1 




AH 


7, 


. temp-incr 


test-label : 


STH 


7, 


.1 




LH 


5, 


. temp-incr 




LA 


5, 


, loop-begin 




BC 


5, 


. posit ive- test ft 




CH 


7, 


. temp-test 




BCR 


5, 


.5 




BC 


7, 


. exit-label 



positive-test: CH 7, temp-test 

BCR 6,5 

exit-label: 



code for statement 
following DO group 



t This is referenced by the REPEAT statement (see Section 3.1 .1 0.5). 

ft This branch is determined by the condition code set by the previous LH 5, temp-incr instruction. 

3.1.10.3 DO WHILE/UNTIL 

Both of these forms of DO groups are essentially the same except that the DO UNTIL 
does not test its conditional expression until it has finished executing the code once. In 
both cases, the condition is tested as detailed in preceding subsections. 

Operation Code 

DO WHILE <cond exp> 

repeat : 

. code for conditional expression 



BC 



cond, exit-label 



exit-label : 



code for statements within DO group 



BC 7, repeat 



. code for statement following DO group 
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Operation Code 

DO UNTIL <cond exp> BC 7 , first-statement 

repeat : 

. code for conditional expression 



BC cond, exit -label 



first -statement 



exit-label : 



code for statements within DO group 



BC 7, repeat 



. code for statement following DO group 



3.1.10.4 DO CASE 

The DO CASE statement is used to select one of a collection of statements for 
processing. 



Operation 

DO CASE I; 



Code 

LH 



<statement 1> BC 

<statement 2> LA 
CH 

BC 
LH 
<statement n> BCR 
END; 



R C ,I 

6 , else-case-label 1 
2 , case-vector 

R c ,0(2) f 

1 , else-case-label 1 

2,0(R C ,2) 

7,2 



I code above is replaced by the following if the 
DATA_REMOTE directive is in effect (see Section 4.0) 
LH R c , I 

BC 6, else-case label 1 

LA 3 , case-vector 

CH R c , ( 3 ) t 

IHL 3,9(0) t 

SLL 3,16* 

BC 1 , else-case-label 1 

LA 1 , case-vector 

LH 2,0(R C ,1) 

LH 1,5(0) 

LBCR 7 , 2 

t Bounds checks on case number. Omitted if ELSE not specified. 



J 
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Operation 



else -case -label 



Code 

<else statement code> 

BC 7 , exit-case-label 

<statement 1> 

BC 7 , exit-case-label 

<statement 2> 

BC 7 , exit-case-label 



exit-case-label : 



<statement n> 



Data 



case-vector 


DC 


H'n' 




DC 


Y (statement 1) 




DC 


Y( statement 2) 



DC 



Y (statement n) 



3.1.10.5 GO TO, REPEAT, EXIT 

All of these statements take the form of unconditional branches. It should be noted that 
REPEAT and EXIT statements may only be used inside DO groups. See Sections 
3.1 .1 0.2 and 3.1 .1 0.3 for the locations of the "repeat" and "exit-label" within a DO 
group. 

Operation Code 

GO TO label BC 7, label 



REPEAT BC 
REPEAT label 



7 , repeat "repeat" is the location of the code which 

determines whether DO group iteration is finished 
or not. 



EXIT BC 7, exit -label "exit-label" is the location of the code immediately 

EXIT label following the end of the DO group. 
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3.1.10.6 RETURN 

The RETURN statement will branch back from the code for a function to the code 
immediately following the function's invocation. 

Operation Code 

Procedures & Functions 

RETURN EXCLUSIVE only: SVC 

normal : LDM 

SRET 

leaf: BCR 

Programs & Tasks 

t Only occurs if the DATA_REMOTE directive is in effect (see Section 4.0) and the procedure/function is a COMSUB. 



Local-data-area+3 (1] 

$ZDSECLR t 

7,0 

7,4 



3.1.10.7 ON ERROR/OFF ERROR/SEND ERROR 



Operation 

ON ERROR„ 



Code 



„<stmt> 





LA 


4 , <stmt> 




STH 


4 , error table entry 1 




LHI 


4 , <action> t 




STH 


4 , error table entry 




BC 


7 , next -statement 


<Stmt> : 




<code for stmt> 


next - statement : 







code for next statement 



ON ERROR r 



SIGNAL 
n SYSTEM [AND SET <event>] 
RESET 



LA 
STH 

LHI 
STH 



4 , < event >t 

4 , error table entry 1 

4 , <action> 

4 , error table entry 



only if event 
faction phase 
I present 



SIGNAL 
ON ERROR n:m IGNORE [AND SET <event>] 

RESET 



SEND ERROR n 
OFF ERROR„. 



LA 
STH 

LHI 
STH 

SVC 

ZH 



4,<event> ] only if event 

4, error table entry 1 Action phase 

+ J present 

4,<action> 

4 , error table entry 

=X' 014nnmm' 

4 , error table entry 



<action> contains action code, error code, and the error group as defined in HAL/FCOS ICD. 
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3.1.11 Built-in Functions 

3.1.11.1 Inline Built-in Functions 

The following built-in functions emit the inline code shown in the following sequences. 
In all cases, it is assumed that Rx contains the argument except when a specific load 
instruction is shown. The results will always be in register Ry. 

Operation 

ABS (arg) 



LENGTH (char) 
SIGN (arg) 



Type 


Code 




scalar, single 


LE 


Ry, arg 




LECR 


Ry,Ry 




BC 


2, *-l 


scalar, double 


LED 


Ry, arg 




LECR 


Ry,Ry 




BC 


2, *-l 


integer, single 


LH 


Ry, arg 




LACR 


Ry,Ry 




BC 


2, *-l 


integer, double 


L 


Ry, arg 




LACR 


Ry,Ry 




BC 


2, *-l 


character string 


LH 


Ry, char 




NHI 


Ry,255 


scalar, single 


LE 


Rx, arg 




LFLI 


Ry,i 




LER 


Rx,Rx 




BC 


5 , continue 




LECR 


Ry,Ry 



continue : 



scalar, double 



LED 


Rx, arg 


LED 


Ry,D'4110000000000 




000' 


LEDR 


Rx,Rx 


BC 


5 , continue 


LECR 


Ry,Ry 



continue : 



integer, single 



LH 


Rx, arg 


LFXI 


Ry,i 


LR 


Rx,Rx 


BC 


5 , continue 
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Operation 



Jym 



Code 

LACR 



Ry,Ry 



continue : 



integer, double 



L 


Rx, arg 


L 


Ry,=F' 1 ' 


LR 


Rx,Rx 


BC 


5 , continue 


LACR 


Ry,Ry 



continue : 



SIGNUM(arg) 



scalar, single 



equal : 



LE 


Rx, arg 


LFLI 


Ry,i 


LER 


Rx,Rx 


BC 


1 , continue 


BC 


4 , equal 


LECR 


Ry,Ry 


BC 


7 , continue 


SER 


Ry,Ry 



continue : 



integer, single 



equal 



LH 


Rx, arg 


LFXI 


Ry,i 


LR 


Rx,Rx 


BC 


1 , continue 


BC 


4 , equal 


LACR 


Ry,Ry 


BC 


7 , continue 


SR 


Ry,Ry 



continue : 



integer, double 
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L 


Ry,=F' 1 ' 


LR 


Rx,Rx 


BC 


1 , continue 


BC 


4 , equal 


LACR 


Ry,Ry 


BC 


7 , continue 
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Operation 



Type 


Code 


equal : 


SR 


continue : 





Ry,Ry 



SUBBIT m T0 n (arg) 



■or- 



SUBBIT n _ m+1 AT m (arg) 



SHL(x,n) 
SHR(x,n) 
XOR(X,Y) 



MIDVAL(X,Y,z; 



integer, single SRL Ry,16-n 

or bits of length 

<16 NHI Ry,mask f 



integer 


double, 




SRL 


Ry, 32-n 


or bits 


of 


length 






>16, or 


scalar 




N 


Ry, F'mask 1 * 


single 












integer 








SLL 


Rx, n 


integer 








SRA 


Rx, n 


Bit,n<16 








LH 
XR 


Ry,Y 

Rx,Ry 


Bit,n>16 








X 


Rx, Y 








or 


XR 


Rx,Ry 


scalar 








LE 
LE 
MVS 


F0,X 
Fl, Y 
F0,Z 



t The mask value is: 2( n " m+1 '-1. 

3.1.11.2 Out of Line Functions 

Out of line functions require branches to the runtime library. 

The registers needed for parameter passing, and the name of the library routine 
branched to, are specified in the tables of Section 5. Examples are given for 
representative argument types. 



Operation 

COS(X) 

SQRT(X) 

ABVAL(X) 



Type of X 

scalar, single 

scalar, double 
vector (3) , double 



Code 

LE 0,X 

ACALL COS 

LED 0,X 

ACALL DSQRT 

LA 2,X 

ACALL W9D3 



TRANSPOSE (X) matrix (m, n) , double LA 

LA 



P2,X 

PI , temp-area 
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Operation 


Tvpe of X 


Code 

LA 
LA 
ACALL 


5 , n 

6 , m 
MM11DN 






matrix (3,3) , single 


LA 
LA 
ACALL 


P2,X 

PI , temp-area 

MM11S3 




UNIT(X) 


vector (3) , single 


LA 
LA 
ACALL 


P2,X 

PI , temp-area 

W10S3 




RANDOMG 




ACALL 


RANDG 




TRIM(X) 


character 


LA 
LA 
ACALL 


P2,X 

PI , temp-area 

CTRIMV 




MAX(X) 


array (n) 


LA 

LHI 

ACALL 


2,X 
5 , n 
EMAX 





3.1.11.3 Shaping Functions 

Shaping functions are explicit invocations of type conversion. The generated code for 
shaping functions has been described in previous subsections where conversions have 
been described (see Sections 3.1 .2.3, 3.1 .3.4, 3.1 .4.4, and 3.1 .5.4). 

In addition, when conversion functions are used in a true "shaping" sense, (e.g. 
MATRIX(<integer array>)), a subroutine is used to move contiguous elements, with 
possible conversion, to a result location of the desired shape.Example: 

MATRIX(A) where A is a 9 element integer array 



LA 


P2,A1 


LA 


Pl,<result loo 


LHI 


6, X' 0002 'flags 5 size 


LHI 


5,9 


ACALL 


QSHAPQ 



Flags: 1 st 8 bits indicate input data type. 
2nd 8 bits indicate output data type. 

Values : = H 



1 = 1 

2 = E 

3 = D 
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3.1.12 Real Time Statements 

All REAL TIME statements are implemented by means of a supervisor call (SVC) 
instruction which has as its address a pointer to a parameter list. The first halfword of 
this parameter list contains a number which identifies the type of real time call. The 
remainder of the parameter list varies with the service being requested. 

The specific forms of the SVC parameter lists are those described in the HAL/FCOS 
ICD. 

For real time statements in non-REENTRANT blocks, the SVC parameter lists are in 
the block's data area. Any invariant portions of the parameter lists are implemented by 
initialized data. Parts of the parameter lists which are runtime-dependent are created 
by execution of in-line code preceding the SVC instruction. 

For real time statements in REENTRANT blocks, the SVC parameter lists are 
dynamically created in the stack by executable code preceding the SVC instruction. 

3.1 .1 2.1 WAIT Statement 

The WAIT statement may use registers 0, 1 to contain a double precision time value 
specified in seconds. If the UNTIL option is specified, the time value is expressed as 
mission elapsed time. Any other times are "Delta Time" from the current mission 
elapsed time. If a time value is not specified in the WAIT statement, then the registers 
will not be affected. 

Operation Type Code 

WAIT n n: literal LED 0,D' floating point form 

of n' 

SVC parameter- list 
WAIT X X: scalar double LED 0,X 

SVC parameter-list 
WAIT FOR DEPENDENT SVC parameter- list 

WAIT FOR X X: event value SVC parameter- list 
WAIT UNTIL X X: scalar double LED 0,X 

SVC parameter-list 

3.1 .1 2.2 CANCEL, TERMINATE Statements 

Operation Code 

CANCEL ] 

CANCEL <task id> 

TERMINATE } SVC parameter- list 

TERMINATE <task id> J 
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3.1 .1 2.3 SIGNAL, SET, RESET Statements 

Operation Type 

SIGNAL<event var> latched or unlatched I 

SET<event var> latched r 

RESET<event var> latched J 



Code 



SVC parameter-list 



3.1 .1 2.4 UPDATE PRIORITY Statement 



Type 



Code 



Operation 

UPDATE PRIORITY TO i I 

UPDATE PRIORITY<taskid> TO i } i: integer SVC parameter-list 

J 



3.1.12.5 SCHEDULE Statement 

In the following code generation sequences, a schematic representation of possible 
SCHEDULE statement forms has been used. The symbol [ ] means that one of the 
contained elements may appear in the statement form without affecting the generated 
code. The symbol { } means that one of the contained elements must be included in the 
statement form - but which one does not affect the code generated. 

In general, the code differs only when time values are specified in the SCHEDULE 
statement. This requires that the time values be specified in double precision format in 
certain registers as shown below. 

Operation Code 

SCHEDDLE< label > [ON<event exp>] PRIORITY (I) [DEPENDENT] TwHILEcevent exp>l SVC parameter-list 

l_UNTIL<event exp>J 



SCHEDULE <label>-| AT X [ PRIORITY (I) [DEPENDENT] fwHILE<event exp>l 
[ IN X J LuNTIL<event exp>J 



SCHEDDLE<label> [ON<eventexp>] PRIORITY(I) [DEPENDENT] , REPEAT -{ AFTER X r" 

I EVERY X J 



SCHEDDLE<label> [ON<eventexp>] PRIORITY (I) [DEPENDENT] UNTIL X 



LED 0,D'X' 

SVC parameter-list 

LED 2,D'X' 

SVC parameter-list 

LED 4,D'X' 

SVC parameter-list 



r ] (• ] LED 0,D'X' 

SCHEDULE<label>-{ AT X [PRIORITY(I) [DEPENDENT] , REPEAT -| AFTER y \ fwHILE<event exp>l LED 2,D'Y' 

I IN X J [EVERY y J LUNTIL<event exp>J svc paramet er-list 



SCHEDULE<label>-{ AT X [-PRIORITY (I) [DEPENDENT] UNTIL Y 
[ IN X J 



LED 0,D'X' 
LED 4,D'Y' 
SVC parameter-list 



r i 

SCHEDULE<label> [ON<eventexp>] PRIORITY(I) [DEPENDENT] , REPEAT-) AFTER X } UNTIL Y 

[every xl 



LED 2,D'X' 
LED 4,D'Y' 
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Operation 



SCHEDULE<label>-{ AT X (-PRIORITY (I) [DEPENDENT] 
I IN X J 



REPEAT -j AFTER yj. UNTIL Z 
[ EVERY yj 



Code 

SVC parameter-list 

LED 0,D'X' 
LED 2,D'Y' 
LED 4,D'Z' 

SVC parameter-list 



3.1.13 I/O Statements 

The READ statement will compile successfully, but will generate incorrect results for 
BFS and produce an error in the linkage editor for PASS. The error is not generated for 
BFS because it uses a different linkage editor. The user will see the following message 
in the map file for PASS: 

IEW02 64 - TABLE OVERFLOW - INPUT LOAD MODULE CONTAINS TOO MANY 
EXTERNAL SYMBOLS IN ESD 

This is accepted as a known error due to the fact that neither the BFS nor PASS flight 
software use either the READ or READALL statements. (DR 102959, 10/22/90) 

3.1.13.1 Initiation 

Initiation of either READ, READALL, or WRITE statements consists of a branch to the 
IOINIT library routine. Register 1 contains the I/O channel number and register 
indicates the type of I/O to be initiated. 
Operation Type Code 

READ(n)... LHI 6,n 

LHI 5,0 
ACALL IOINIT 

READALL ( n ) ... LH I 6 , n 

LHI 5,1 
ACALL IOINIT 

WRITE (n)... LHI 6,n 

LHI 5,3 
ACALL IOINIT 

3.1.13.2 Input 

In all cases, the code sequences below follow the I/O initiation process described in the 
previous subsection. It is assumed that any conversions have been done previous to 
the code sequences shown; the resultant type determines which type of code sequence 
is generated. Note that vector and matrix partitioning require that the first element of 
the partition be known; additionally, matrices require a DELTA value to be known to skip 
over those elements (in the "natural sequence") which are not part of the resulting 
partitioned Matrix (see Section 3.1.2.3). 
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Operation 

READ ()..., I,... 



integer, single 



integer, double 



READ ( ),..., S, 111 scalar, single 



READ ()..., V,... 



scalar, double 



vector (n) ; single 



Code 



initiation 



LA 2,1 
ACALL HIN 



initiation 



LA 2,1 
ACALL UN 



initiation 



LA 2,S 
ACALL EIN 



initiation 



LA 2,S 
ACALL DIN 



initiation 



READ ()..., V,... 



partitioned vector 
of length n whose 
first element is 
located at ' V+ 
displacement ' 



vector (n); double 
(partitioned or 
not partitioned) 



LA 


2,V 


XR 


7,7 


LHI 


5,1 


LHI 


6 , n 


ACALL 


MMRSNP 


• 


initiation 


LA 


2 , V+displacement 


XR 


7,7 


LHI 


5,1 


LHI 


6 , n 


ACALL 


MMRSNP 


same except branches to 


MMRDNP 
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Operation 

READ ()..., M,.„ 



Jym 



Code 



READ()...,M,... 



READ ()..., C,... 
or READALLC 



READ ()..., 

C m TO n ' — 

or READALLC ) 

^m TO n ' — 



READ ()..., C n ,... 
or READALLC ) 
C 



matrix (m, n) ; single 


. 






• 


initiation 




LA 


2,M 




XR 


7,7 




LHI 


5 , m 




LHI 


6 , n 




ACALL 


MMRSNP 


partitioned matrix 


. 




whose resultant 


. 


initiation 


size is mxn, first 


. 




element is M + 


LA 


2 , M+displacement 


displacement . 


LHI 


7 , DELTA 




LHI 


5 , m 




LHI 


6 , n 




ACALL 


MMRSNP 


matrix (m, n) ; double 


Same except branches to 




MMRSNP 




(partitioned or not 






partitioned) 






character string 


. 




,c,... 


• 


initiation 




LA 


2,C 




ACALL 


CIN 



partitioned 
character string 



initiation 



LA 2,C 

LHI 5,m 

LHI 6,n 

ACALL CINP 



single partitioned 
character string 



initiation 



LA 2,C 

LHI 5 , n 

LR 6,5 

ACALL CINP 
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Operation 

READ ()..., B,.„ 



bit string (of 
length n) 



Code 



initiation 



LHI 6 , n 

ACALL BIN f 

BC 4 , around 

ST 6,B 



around: 



Arrayed Input 



The actual code generated depends on the type of array. Thus, 
the code will consist of an array loop (see Section 3.1 .7.4) which 
contains the proper code for inputting of each array element using 
the code shown above (corresponding to the array element type). 



T BIN returns the bit string input in register R6. 

3.1.13.3 Output 

In all cases, the code sequences below follow the I/O initiation processes described in 
Section 3.1 .13.1 . It is assumed that any conversions have been done previous to the 
code sequences shown; the resultant type determines which type of code sequence is 
generated. Note that vector and matrix partitioning require that the first element of the 
partition be known; additionally, matrices require a "delta" value be known to skip over 
those elements (in the "natural sequence") which are not part of the resulting 
partitioned matrix. 

Operation Type Code 

WRITE ()..., I,... integer, single 

initiation 



LH 5,1 
ACALL HOUT 



integer, double 



initiation 



L 5,1 

ACALL I OUT 



WRITE ()..., S,... scalar, single 



initiation 



LE 0,S 
ACALL EOUT 
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Operation 



WRITE ()...,V, 



WRITE ()...,V, 



WRITE ()...,M, 



WRITE ()...,M,. 



Type 


Code 




scalar, double 


LED 


0,S 




ACALL 


DOUT 


vector (n); single 


• 


initiation 




LA 


2,V 




XR 


7,7 




LHI 


5,1 




LHI 


6 ,n 



partitioned vector 
of length n whose 
first element is 
located at 
1 V+displacement ' 



vector (n); double 
(partitioned or 
non-partitioned) 
matrix (m,n) ; single 



partitioned matrix 
of resultant size 
mxn whose first 
element is M + 



ACALL MMWSNP 





initiation 


LA 


2 , V+displacement 


XR 


7,7 


LHI 


5,1 


LHI 


6 , n 


ACALL 


MMWSNP 


same except branches to 


MMWDNP 





initiation 


LA 


2,M 


XR 


7,7 


LHI 


5 , m 


LHI 


6 , n 



ACALL MMWSNP 



• 


initiation 


LHI 


7, delta 


LHI 


5 , m 


LHI 


6 ,n 



ACALL MMWSNP 
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Operation 



WRITE ()..., C,... 



lype 



Code 



matrix (m, n) ; double same except branches 
(partitioned or not to MMWDNP 
partitioned) 
character string 

initiation 



WRITE ()..., C m T0 n partitioned 

character string 



LA 2,C 

ACALL COUT 



initiation 



WRITE ()..., C n ,„. 



single partitioned 
character string 



LA 2,C 
LHI 5,m 
LR 6,n 
ACALL COUTP 



initiation 



WRITE ()...,B, 



bit string (of 
length n) 



LA 2,C 
LHI 5,m 
LR 6,5 
ACALL COUTP 



initiation 



Arrayed Output 



L 5,B 
LHI 6,n 
ACALL BOUT 

The actual code generated depends on the type of array. Thus, 
the code will consist of an array loop (see Section 3.1.7.4) to 
cause iterative outputting of each array element using the code 
shown above (corresponding to the array element type). 
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3.1.14 NAME Operations 
3.1.14.1 NAME Comparisons 

NAME comparisons may only be = or -, =. 

Operation Code 

NAME(X) <OP> NAME(Y) X and Y are NAME variables 

[LH Rx,X ] 

[LH Ry,Y ] 

-or- 

X and Y are NAME REMOTE variables 

[L Rx,X ] 

[L Ry,Y ] 

the ZCON index inhibit bits are 
ignored for the comparison 

[LHI Ri,x v FFFF0000' ] 

[IAL Ri,x v F7FF' ] 

[NR Rx,Ri ] 

[NR Ry,Ri ] 

-or- 

X is a declared variable, Y is a NAME 

variable 

[LA Rx,X ] 

[LH Ry,Y ] 

-or- 

X is a declared REMOTE variable, 

Y is a NAME REMOTE variable 

[L Rx,ZCON(X) ] 

[L Ry,Y ] 

the ZCON index inhibit bits are 
ignored for the comparison 

[LHI Ri,x v FFFF0000' ] 

[IAL Ri,x*F7FF' ] 

[NR Rx,Ri ] 

[NR Ry,Ri ] 

-or- 

X is a declared local variable, Y is 
a NAME REMOTE 

[LA Rx,X ] 

[OHI Rx,x'8000' ] (PASS only) 

[IAL Rx,x'0800' or x'0000'] 

[L Ry,Y ] 
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Operation 



Code 

the ZCON index inhibit bits are 
ignored for the comparison 

[LHI Ri,x v FFFF0000' ] 



[IAL 


Ri, 


x'FVFF' 




] 




[NR 


Rx, 


Ri 




] 




[NR 


Ry, 


Ri 




] 




-or- 












X is a 


NAME variable, 


Y is 


a NAME REMOTE 


[L 


Ry, 


Y 




] 




[LH 


Rx, 


X 




] 




[IAL 


Rx,x v 0800' 
(non- aggregate 


vari 


] 
ables 


only) 


[SRA 


Rx, 


1 




] 




[SRR 


Rx, 


31 




] 




[OHI Rx,X v 8000' 

the ZCON index inhibit 
for the comparison 


bits 


] (PASS only) 
. are ignored 


[LHI 


Ri, 


x^FFFFOOOO' 




] 




[IAL 


Ri, 


x v F7FF' 




] 




[NR 


Rx, 


Ri 




] 




[NR 


Ry, 


Ri 




] 





The following apply to all of the above examples: 

CR Rx , Ry 

BC COND, not-true-label 

BC 7, true-label 

Note that the compiler emits an RLD card that informs the linkage 
editor to insert the proper CSECT value into the last four bits 
inserted by the IAL instruction for non-NAME non- stack variables, 
to conform to the ZCON format . 

3.1.14.2 NAME Assignment 

The variable Y in the following examples may only be a NAME variable. The variable X 
may be either an actual or NAME variable having declared properties identical to Y 
(refer to Language Specification). 



Operation 


Code 




NAME(Y) =NAME(X) 


X and Y 


are NAME variables 




[LH 


Rx,X ] 




[STH 


Rx,Y ] 




-or- 






X and Y 


are NAME REMOTE variables 




[L 


Rx,X ] 




[ST 


Rx,Y ] 




-or- 
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Operation Code 

X is a declared local variable, Y is not 

REMOTE 

[LA Rx,X ] 

[STH Rx,Y ] 
-or- 

X is a declared REMOTE variable, Y is a 

NAME REMOTE 

[L Rx,ZCON(X) ] 

[ST Rx,Y ] 
-or- 

X is a declared local variable, Y is a 

NAME REMOTE 

[LA Rx,X ] 

[OHI Rx,x v 8000' 1 (PASS only) 

[IAL Rx,x v 0800' or x v 0000'] 

[ST Rx,Y ] 

-or- 

X is a NAME variable, Y is a NAME REMOTE 

[LH Rx,X ] 

[IAL Rx,x v 0800' 1 

(non-aggregate variables only) 

[SRA Rx,l ] 

[SRR Rx,31 ] 

[OHI Rx,x % 8000' ] (PASS only) 

[ST Rx,Y ] 

Note that the compiler emits an RLD card that informs the 
linkage editor to insert the proper CSECT value into the last 
four bits inserted by the IAL instruction for non-NAME non- stack 
variables, to conform to the ZCON format. 

-or- 
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Operation Code 

X and Y are declared local variables, but 
X was previously converted to a ZCON to 
accomodate a NAME REMOTE left-hand side 
variable in a multiple assignment 

[LA Rx,X ] 



[YCON to ZCON conversion ] 



[LR Ry,Rx ] | ZCON 

[SLL Ry,31 ] L to YCON 

[OHI Ry,x'7FFF' ] | con- 

[NR Rx,Ry ] J version 

[ST Rx,Y ] 



3-65 November 2005 



HAL/S Compiler System Specification USA003089 

32.0/17.0 

3.1.15 %MACROS 

The following %MACROS are recognized by the HAL/S-FC compiler and produce the 
indicated code. 

3.1.15.1 %SVC 

The %SVC statement generates a true SVC instruction in which the address portion 
points to the operand specified. 

Operation Code 

%svc (a) svc a 

3.1.15.2 %NAMECOPY 

This operation works in the same manner as NAME assignments except that the 
operands must be structures, but not necessarily having identical properties. See 
Section 3.1 .1 4.2 for more examples. 

Operation Code 

%NAMECOPY(Y,X) ; LA Rx,X 

where X is actual variable STH Rx,Y 

3.1.15.3 %COPY 

The %COPY statement is used to move data from one location to another without 
regard to data types. This operation uses the block move algorithm. See section 
3.1 .1 7 for examples of the variances of that algorithm. The general form is: 
%COPY(dest, source, count); 

where: 

source is the variable name from which data will be moved; 

dest is the variable name into which data will be moved; and 

count is optional and if present indicates the number of halfwords to be moved 
from source to dest. If count is omitted, the size of the source operand is used to 
determine a count. 

NAME variables are dereferenced in all cases. Use of a NAME variable as dest or 
source operand will refer to the data pointed to by the NAME variable. The count may 
also be a NAME variable in which case the count is taken from the storage location 
pointed to by the NAME variable. 

Error checking for %COPY statements is performed when the third argument is a literal 
or omitted. The following errors may be emitted: 

FN1 05: When the source or destination dereferences a Name variable. 
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FN1 06: When the element boundary is exceeded for non-remote locally declared 
variables. For example, if the source or destination is a scalar (size of 
scalar is two halfwords), and the number of halfwords to copy is 4, then 
the boundary of the variable has been exceeded and an FN106 is 
emitted. If the source or destination is an array, or element of an array, 
an FN 106 error message is emitted when the location of the array 
element plus the number of halfwords to copy exceeds the ending 
position of the array. 

FN1 07: When runtime addressing is generated for a non-remote locally declared 
variable involved in a %COPY statement. Runtime addressing means 
the compiler cannot determine the address of a variable during 
compilation. 

FN1 08: When the source or destination dereferences a pass-by-reference formal 
parameter. 

The move halfword instruction (MVH) is used to implement the %COPY statement 
when feasible. If possible, the compiler will optimize the %COPY sequence by 
performing LED, STED, L, ST or LH, STH sequences instead of using the MVH 
instruction. This optimization occurs when the compiler is able to determine that no 
more than eight halfwords need to be moved and that the data alignments match for 
both source and receiving data areas. When the destination operand of a %COPY 
statement is REMOTE, a call to MSTR is used to implement the move. Since MSTR 
expects ZCON inputs, the compiler will perform a YCON to ZCON conversion if the 
source operand is LOCAL data. The following examples show some of the possible 
sequences. 

A %COPY Warning: 

Since the %COPY macro moves data without regard to data type, it can be used to 
move one character string over another character string even if the character string 
sizes do not match. A HAL/S CHARACTER string is defined as one halfword 
descriptor, aligned on a halfword boundary, followed by the data (two characters 
packed into each halfword of memory). The string descriptor is organized into two one- 
byte values: the upper byte contains the maximum number of characters the string can 
hold and the lower byte contains the actual number of characters in the string. 

When the %COPY source is a smaller string than the destination, the destination 
string's descriptor gets overwritten causing the string to internally become smaller and 
causing unexpected results in all subsequent uses of the destination. Conversely, 
when the source is bigger than the destination and the 3rd argument is a literal count or 
is omitted, the compiler correctly emits a FN106 error ("ELEMENT OR CSECT 
BOUNDARY EXCEEDED FOR DESTINATION OF %COPY") if the character strings 
are declared locally and are non-REMOTE. 
Examples: 

1. Strings A and B are declared as CHARACTER(20). When the following 
%COPY statement: 
%COPY(A,B); 
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is executed, 11 halfwords (10 halfwords (20 bytes of character data / 2) + 1 
halfword of descriptor) are copied in to the memory location containing A. 
This %COPY statement does not pose any problems because the length of 
the source and destination strings are the same. 

2. String X is declared as CHARACTER(20) and string Z is declared as 
CHARACTER^ 5). When the following: 

%COPY(X,Z); 
is executed, 9 halfwords (8 halfwords ((15 bytes of character data + 1 byte 
of pad) / 2) + 1 halfword of descriptor) are copied into the memory location 
containing CHARACTER X. The new maximum character size of string X 
would be 15. This occurs because the %COPY macro moves the 9 
halfwords representing string Z over the first 9 halfwords of string A, and in 
the process, overwriting X's string descriptor. After this statement, and for 
the duration of the program's execution, the internal character size of X is 
15, not 20, as originally declared! Furthermore, this situation could lead to 
some unexpected execution results. For example: after the above %COPY 
statement character B is assigned into character X ("X = B;") by calling the 
CASR run-time library, the character assignment would not take place. 
This happens because CASR's checks would detect the size of character X 
is internally smaller than string B. 

3. Using the values in example 2 above, if the user codes the following 
%COPY statement: 

%COPY(Z,X); 
the compiler would correctly emit a FN106 error when the 3rd argument is 
omitted because the destination operand is smaller than the source 
operand. 

Note: The compiler can allow an assignment to exceed the bounds of the 
receiving data. There are two methods of doing this that could cause 
problems, and thus should be avoided: 

a. A %COPY statement with a variable halfword count field larger than the 
size of the destination when the destination is local data (this may also go 
beyond the bounds of a CSECT). The compiler performs bound checking 
when a literal count is provided but cannot perform these checks when a 
variable count is used. Local data can be rearranged whenever a 
compilation unit is modified. 

b. Overindexing an arrayed variable (subscript is greater than the receiving 
data's declared arrayness). 
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The compiler assumes that arrayed assignments and %COPY are not used in this 
manner and does not update registers that may have been modified as a result of a 
violation of these rules. 

Operation Code 



%COPY(X,Y) 




L 


Rx,YCON(X, size of Y) 






L 


Ry,ZCON(Y) 






MVH 


Rx,Ry 


%COPY(X,Y,n) 




L 


Rx, YCON(X,n) 






L 


Ry,ZCON(Y) 






MVH 


Rx,Ry 


%COPY(X,Y,5) 




L 


Ry,Y 






ST 


Ry,x 






L 


Ry, Y+2 






ST 


Ry,X+2 






LH 


Ry, Y+4 






STH 


Ry,X+4 


%COPY(X,Y) ; 




L 


R4,ZCON(Y) 


where X and 


Y are 


LFXI 


R5 , size of Y 


REMOTE 




L 


R2,ZCON(X) 






SCAL@# 


MSTR 


%COPY(X,Y) ; 




LA 


R4, Y 


where X is 1 


REMOTE 


OH I 


R4, ' 8000 ' (PASS only) 


and Y is local 


IAL 


R4, '0000' 






LFXI 


R5 , size of Y 






L 


R2,ZCON(X) 






SCAL@# 


MSTR 
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3.1.15.4 %NAMEADD 

The %NAMEADD statement adds an integer to a given NAME variable and assigns the 
result into a separate NAME variable. It consists of three operands as seen below: 

%NAMEADD(X, Y, Z) 

where: 
X is any NAME variable. 

Y can be either any NAME variable or any HAL variable which is legal in the 
context NAME(V). 

Z is either an integer literal or variable which specifies the amount to be 
added (which may be negative) from the second operand. (Note: literals 
must not be signed.) 

The source (Y) cannot be REMOTE if the destination (X) is non-REMOTE. 

The result of the %NAMEADD statement which is placed into the NAME variable, X, is 
equal to the NAME value of Y plus the integer Z. 

Operation Code 

%NAMEADD(X, Y, 5) ; 

where Y is a non-NAME variable 

and X is non-REMOTE 
%NAMEADD(X, Y,Z) ; 

where Y is a non-NAME variable 

and X is non-REMOTE 

%NAMEADD(X, Y, 8) ; 
where Y is a NAME variable 
and X is non-REMOTE 

%NAMEADD(X, Y, 8) ; 
where Y is a non-NAME REMOTE 
variable and X is NAME REMOTE 

%NAMEADD(X, Y, 8) ; 
where Y is NAME REMOTE 
and X is NAME REMOTE 

In either of the last two examples above, code may be inserted immediately before the 
ST instruction to clear the ZCON index inhibit bit according to the type of X. 



LA 


Rx, Y+5 


STH 


Rx,X 


LA 


Rx, Y 


AH 


Rx, Z 


STH 


Rx,X 


LH 


Rx, Y 


LA 


Rx, 8 (Rx) 


STH 


Rx,X 


L 


Rx,ZCON(Y 


AH I 


Rx, 8 


ST 


Rx,X 


L 


Rx, Y 


AH I 


Rx, 8 


ST 


Rx,X 



Operation 


Code 






%NAMEADD(X, Y, 8) ; 


LA 


Rx, Y+8 




where Y is a non-NAME 


OH I 


Rx,x v 8000' 


(PASS only) 


variable 










3-70 




November 2005 



HAL/S Compiler System Specification 



USA003089 
32.0/17.0 



and X is NAME REMOTE 



IAL Rx,x*0800' or x v 0000' 

(linker fills in sector num- 
ber) 



ST 



Rx,X 



%NAMEADD(X, Y, 8) ; 

where Y is a NAME 
variable 

and X is NAME REMOTE 



LH 


Rx, Y 


LA 


Rx, 8 (Rx) 


STH 


Rx,x*0800' 




(non-aggregate variables 




only) 


SRA 


Rx, 1 


SRR 


Rx,31 


OH I 


Rx,x*8000' (PASS only) 


ST 


Rx,X 



If X is of aggregate type (i.e. ARRAY(3) SCALAR) and Y is of REMOTE singular type 
(i.e. SCALAR) then the following code is inserted to clear the index inhibit bit: 

LFXI Ri,-1 

IAL Ri,x"F7FF" 

NR Rx,Ri 

3.1.15.5 %NAMEBIAS 

By convention, the compiler uses an address for aggregate data that is offset a certain 
number of halfwords (depending on data type) before the actual beginning of the data 
(see Section 3.1 .1 .2). The %NAMEBIAS statement performs this zeroth element 
calculation by determining the positive value needed to point to the first element of the 
data. It consists of two operands as seen below: 

%NAMEBIAS(X,Y) 

where, 

X is a destination variable of integer type 

Y is a source variable of any data type (unsubscripted) 

The result of the %NAMEBIAS statement is placed into the variable X. Please note that 
the offset of a NAME variable is the offset of the variable to which it points. 



Operation Code 

%NAMEBIAS(X,Y) LFXI/LHI/L 

where X is a non-NAME variable STH/ST 



Ryzeroth element offset of Y 
Ry,X 
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%NAMEBIAS(X,Y) 

where X is a NAME variable 


LFXI/LHI/L 

LH 

STH/ST 


Ry,zeroth element offset of Y 

Rx,X 

Ry,disp(Rx) 


%NAMEBIAS(X,Y) 
where X is REMOTE 




LFXI/LHI/L 
STH@#/ST@# 


Ryzeroth element offset of Y 
Ry,X 


%NAMEBIAS(X,Y) 
where Y has zero offset 




ZH/ZH@# 


Rx 



3.1.16 NONHAL References 

Definition and use of the NONHAL construct in the HAL/S-FC compiler system results 
in an unimplemented feature message from the code generator. 

3.1 .1 7 Block Move Algorithm 

For assignments involving arrays, structures, or vectors and matrices, the block move 
algorithm will be applied when: 

1 . both source and destination data specifications occupy contiguous storage; 

2. the data types for source and destination match in type and precision; and 

3. neither source nor destination variables are NAME variables. 

The default block move sequence is as follows: 

X=Y; L Rx,=Y(X,size of Y) 

L Ry,=Z(Y) 
MVH Rx,Ry 



When X is declared REMOTE 



LA P2 , Y 

OHI P2,x'8000' (PASS only) 

IAL P2,x'0800' orx'0000' 

LFXI 5, size of Y 

L Pl,ZCON(X) 

ACALL MSTR 



When both X and Y are declared REMOTE: 

L P2,ZCON(Y) 
LFXI size of Y 
L Pl,ZCON(X) 
ACALL MSTR 
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When the DATA_REMOTE directive is in effect (see Section 4.0) 
and the destination variable X is local data: 



L 


3,=Y(X, size of Y 


ZRB 


3,x'8000' 


L 


Ry,=z(Y) 


MVH 


3,Ry 


LH 


3,9(0) 



In certain block move applications where the following is true: 

a. variable indexing is not specified; 

b. no NAME or ASSIGN parameters are specified; 

c. source and data word alignments match and 8 or fewer halfwords are 
being moved, or two or fewer halfwords are being moved; 

then the MVH sequence is replaced by the appropriate number of LED/STED (4 
halfwords apiece), L/ST (2 halfwords apiece), and LH/STH instruction pairs to 
accomplish the movement. 

The following examples illustrate: 

DECLARE ARRAY (3) , 

A,B,C INTEGER, 
D INTEGER; 
DECLARE ARRAY (3) INTEGER, 

E,F;/*E,F on odd boundary*/ 
A=B; 





LED 


0,B 




STED 


0,A 




LE 


0,B + 4 




STE 


0,A+4 


C=D; 








L 


4,D 




ST 


4,C 




LH 


4,D+2 




STH 


4,C+2 


E = F; 








LH 


5,F 




STH 


5,E 




L 


5,F+1 




ST 


5,E + 1 


B = E; 






uses MVH since >2 halfwords and alignments not matching 
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3.2 Object Code Naming Conventions 

Each successful HAL/S compilation produces several named control sections 
(CSECTs). The CSECT names are derived according to the following rules: 

a. HAL/S compilation unit names are transferred to the emitted object code by using 
only the first six characters of the HAL/S name. The name will be padded or 
truncated to six characters where necessary. 

b. Any occurrence of the underscore character (_) in the first six characters of a 
PROGRAM, PROCEDURE, FUNCTION, TASK, or COMPOOL is eliminated. The 
resulting characters are joined together to produce the characteristic name of the 
compilation unit (e.g. A_B_C becomes ABC). Additional characters are placed on 
the front of the resultant name to form the final name for each of the individual 
situations in which the name is used. All CSECT names therefore take the form: 

ccNNNNNN 
where the value of cc for individual cases is: 

PROGRAM 

TASKS 

COMSUBs 

Internal procs 

DECLAREd data 

COMPOOL 

Process Directory Entries 

Z-con to comsub 

REMOTE data 



$0 

$c c=(l-9,A-Z) 

#C 

an a= (A-Z) , n= (0-9] 

#D 

#P 

#E 

#Z 

#R 

#X 



Exclusive data 

In addition to CSECTs produced by the compiler, the HAL/S-FC system defines other 
CSECTs, some of which are referenced by compiler-emitted code. These CSECT 
types and their naming conventions are: 

Z-con to library routine: #Q 
Data for library routines: #L 

3.3 Printed Data from Phase 2 

3.3.1 Formatted Assembly Listing 

Under control of the LIST compiler option, Phase 2 will produce a formatted, mnemonic 
listing of the object code produced for the compilation unit. This includes showing the 
statement number in which a label is located when a branch to a label is done. Also, 
the registers are identified with one of the following letters in front of the register 
number: "R" for general or "F" for floating point. The nominal execution time for each 
instruction (as defined in the "Space Shuttle Model AP1 01 -S Principles of Operation" , 
Chapter 17) is provided. When a literal value is referenced, the register contents and 
decimal value for floating point instructions or the HEX and decimal values for non- 
floating point instructions are shown. For RS instructions with a base register of 3, the 
displacement is used instead of the base register. In this case, nothing is printed 
instead of "R3". For BC instructions, alternate mnemonics are printed in the symbolic 
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operand field to clarity the intent of the branch. In addition to the assembler-type 
mnemonic instruction listing, a full hexadecimal listing of the emitted code is also 
produced. 

This object code listing is normally appended to the Phase 1 primary source listing as 
defined by the SYSPRINT DD card. However, use of the SDL compiler in addition to 
the LIST option causes the object code listing to be produced through the OUTPUT7 
DD card. The listing thus produced is compatible with the ABSLIST function of the AP- 
1 01 Link Editor. The HAL/SDL ICD contains the detailed description of the ABSLIST 
format. 

3.3.2 Symbol Information 

Included in the listing is a table containing the symbol, type, ID, address, length (in both 
HEX and decimal) and block name. 

3.3.3 RLD Information 

The RLD information is printed in a table containing the position pointer, relocation 
pointer, flags, address and CSECT name for both position and relocation pointers. This 
section includes a title and a legend explaining each of the columns. 

3.3.4 Variable Offset Table 

The Variable Offset Table contains the location, base register, displacement, bias 
(zeroth element offset), name and length for each variable. This section includes a title 
and a legend explaining each of the columns. 

3.3.5 Memory Map Table 

A Memory Map table for local data is printed for the current compilation unit. It contains 
the variable name, length, offset, base register, displacement and scope. It also 
contains local block data information and alignment gap information. 

3.3.6 Structure Template Layout Table 

The Structure Template Layout Table contains the displacement from the root node, the 
length, the bias (zeroth element offset) and the name of each terminal and node in the 
template. Alignment gap information is also provided. 

3.4 Symbol Table Augmentation 

Phase 2 inherits an initialized symbol table from Phase 1 . In the course of generating 
code, Phase 2 makes additions to the symbol table which are inherited, in turn, by 
Phase 3. These additions are generally in the area of data addressing. 
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Information is added in two of the symbol tables parallel arrays: 

• The SYT_ADDR array is filled with data offset information indicating the 

relative location of data items within CSECTs 

• The EXTENT array is filled with information about the size of the storage 

allocated to individual data items. 

3.5 Statement Table Augmentation 

Phase 3 inherits, in a secondary storage device, the statement table produced by 
Phase 1 . If the ADDRS compiler option is in effect, Phase 1 leaves room in the 
statement table for beginning and ending addresses of individual HAL/S statements. 
This information is filled in by Phase 2 after the generation of the executable code has 
been performed. The completed statement table is then left for use by Phase 3. 
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4.0 Incremental #D (DATA_REMOTE Directive) REQUIREMENTS 
AND CODE DESIGN 

4.1 Introduction 

Incremental #D was a major enhancement to the compiler implemented in Phase 1 
(Syntax Analysis), Phase 2 (Code Generation), and Phase 3 (SDF Generation), with 
the majority of the implementation in Phase 2. The following is taken from detailed 
requirements for Incremental #D as originally written. 

The purpose of this chapter is to identify the detailed requirements, and to review the 
compiler source code design that satisfies these requirements, for the implementation 
of Support Software Change Request (SSCR) 11096 titled "Implement the Incremental 
#D Option". The HAL/S FC compiler that is modified to implement the features of the 
Incremental #D option will be Release 24.0, and will also be known as the #D compiler. 

4.2 Requirements and Code Design 

The four primary requirements for the Incremental #D option are given in this section. 
Following each primary requirement is an interpretation of what that requirement means 
from the compiler's perspective, the implied or derived detailed requirements which the 
design must satisfy, and a high-level picture of the compiler source code design. 

When applicable, the code sections in the design pictures have been labeled with the 
number of the requirement that is satisfied (without the chapter number; i.e., 
requirement 4.2.1.2.1 is shown as 1.2.1). Note that after requirement 4.2.1.2.1 is met 
(see section 4.2.1.3), all remaining code segments shown throughout the document are 
only executed if the #D Directive was used. The if-then constructs that each of these 
code segments are imbedded in are not shown in order to avoid clutter and repetition. 

No formal requirement exists for the compiler with regard to constraints on execution 
performance or Flight Software object code growth impacts incurred upon implementing 
and using the Incremental #D option. 

4.2.1 Provide for Selective Migration of #D Data 

• Provide for selective migration of program data CSECTs into upper memory via 
use of Extended Addressing hardware feature. 

4.2.1.1 Interpretation 

The HAL/S FC compiler will have some type of mechanism which will allow the HAL/S 
programmer to specify that all program local data declared within a single compilation 
unit (#D CSECT), will be referenced using Data Sector Extension (DSE) Addressing 
techniques. This type of addressing will allow the #D CSECT to be located in any 
memory sector. 
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4.2.1.2 Detailed Implied/Derived Requirements 

4.2.1.2.1 The HAL/S FC Compiler shall {1} support a #D directive, "DATA 
REMOTE", which will allow the #D CSECT to be placed into any 
memory sector (where previously it was restricted to sector or 1). A 
single upper memory sector shall {2} be reserved for #D data and will 
be referred to as the DSE Sector. The data in this CSECT will be 
referred to as Remote #D data. 

4.2.1.2.2 The #D Directive shall {1} have the same placement restrictions as the 
"D INCLUDE TEMPLATE" directive, and the coding of more than one 
#D Directive shall {2} produce the same result as coding one. 

4.2.1 .2.3 The #D Directive shall be illegal for COMPOOL compilation units. 

4.2.1 .2.4 When the #D directive is used, the REMOTE attribute shall be ignored 
for all locally declared data except NAME variables. Such data will be 
processed as Remote #D data. 

4.2.1 .2.5 The compiler shall set a flag (known as the DATA_REMOTE flag) in the 
Simulation Data File (SDF) to indicate when the #D directive is used, for 
the benefit of post processing tools. 

4.2.1.2.6 When the #D directive is used, the REMOTE attribute of the module 
shall {1} be set in order to provide for auto placement of that module's 
#D CSECT in a REMOTE bank by the PRELINK tool. After code 
generation, the REMOTE attribute of the module shall {2} be cleared so 
that the SDF flags for the module are not changed. 

4.2.1.2.7 The requirements, restrictions, and impacts of Incremental #D 
described in this chapter shall {1 } be in effect only when the #D directive 
is used. When the #D directive is not used, the #D compiler shall {2} 
produce object code which is identical to that produced by its 
predecessor compiler (except for changes due to any implemented DR 
fixes). 
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4.2.1.3 Compiler Implementation Design 



COMMON DATA 


NEW DATA_REMOTE Boolean 1 .0 

symbol table REMOTE attribute flags 




PASS1 


PASS2 


PASS3 


DWNTABLE 
CERRDECL 
add new error class CLASS_XR (1 .0) 








STREAM. PROCESS_COMMENT 
if DATA_REMOTE directive used then 
if COM POOL then error XR2 (1.2.3) 
if wrong placement then error XR1 (1 .2.2) 
set DATA_REMOTE Boolean (1 .2.1) 








IMPORTANT: All subsequent code segments are only executed if DATA_REMOTE is set. The check for this Boolean 

being set has been left out to avoid repetition ,. „ _, 




SYNTHESIZE 
in processing declared data: 
if REMOTE attribute then error XR3 

(1.2.4) 


NEW CSECTJYPE 

a support routine to indicate if a data 

item is #D data: 
return '#D' for locally declared data 
return '#R' for locally declared data 
with REMOTE attribute set 


##DRIVER 

use old PATCH_FLAG as 
the new 
DATA_REMOTE_FLAG for 

SDFS (1.2.5) 










INITIALISE 
set DATA_REMOTE_FLAG 
(1.2.5) 




INITIALISE. PROCENTRY 
IF NOT EXTERNAL 
then set module's REMOTE attribute 
(1.2.6) 












INITIALISE. SET_NEXT_AND_LOKS 
if CSECT_TYPE=#R then 
clear REMOTE attribute 
(1.2.4) 

(4.2.1) 












EMIT_ESD_CARDS 
if module's REMOTE attribute 
then set bit in ESD card for PRELINK 
and clear module's REMOTE attribute 
(1.2.6) 













Figure 4-1 Provide for Selective Migration of #D Data 
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4.2.2 Provide for Management of Extended Addressing Feature 

• Provide for management of the Extended Addressing feature at the appropriate 
points in the code: 

a. Prolog 

b. Common Subroutine CALL locations. 

c. Runtime Library CALL locations. 

d. Epilog 

4.2.2.1 Interpretation 

DSE management is defined as the techniques used to either clear or load the Data 
Sector Extension (DSE) of a register which is used to address the DSE sector. 

DSE management shall be used only in modules compiled with the #D directive. 

DSE management shall occur upon entry to a module, around all calls to external 
procedures and calls to Runtime Library (RTL) routines, and immediately before exit 
from a module. 

4.2.2.2 Detailed Implied/Derived Requirements 

4.2.2.2.1 Two fullword constants, $ZDSESET and $ZDSECLR, shall be supplied 
by FCOS to provide the compiler a means of setting and clearing DSE 
registers with the proper values. 

4.2.2.2.2 For compilation units using the #D directive, the compiler shall 
generate object code in the prolog of each PROGRAM/COMSUB, 
which will initialize the DSEs of registers R1 and R3 with the Remote 
#D CSECT. 

4.2.2.2.3 When the #D directive is used, the DSEs associated with the Remote 
#D registers shall be set to zero immediately prior to any external 
procedure and prior to any RTL call which utilizes R1 or R3 as a base 
register. 

4.2.2.2.4 Immediately upon return from an external procedure or any RTL call 
which utilizes R1 or R3 as a base register, the DSEs associated with 
the Remote #D registers shall be restored to their previous values. 

4.2.2.2.5 Before the exit from a COMSUB compilation unit using the #D 
directive, the DSEs associated with the Remote #D registers shall be 
set to zero. This is not done for PROGRAMS, as the SVC instruction 
that ends a PROGRAM needs the DSEs set to work properly. 
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4.2.2.3 Compiler Implementation Design 



COMMON DATA 


NEW DATA REMOTE Boolean 1 .0 




PASS1 


PASS2 


PASS3 




##DRIVER 

add new LDM instruction (2.0) 












INITIALISE. SETUP_DATA 

set up external recognition of data contents $ZDSESET 

and$ZDSECLR (2.2.1) 












GENERATE. EMIT CALL 

clear DSEs with LDM before call (2.2.3) 

set DSEs with LDM after call (2.2.4) 












GENERATE. BLOCK OPEN 

set DSEs with LDM in prolog (2.2.2) 












GENERATE. EMIT RETURN 

clear DSEs with LDM in epilog of COMSUBS (2.2.5) 











Figure 4-2 Provide for Management of Extended Addressing Feature 

4.2.3 Enforce Compiler Restrictions on #D Data 

• Have all program data items take on the attribute "lives REMOTE"; enforce normal 
compiler restrictions on those data items: 

a. No assignments of Remote #D address into (16 bit) NAME variable. 

b. No declaration of Remote #D data as EVENT type. 

4.2.3.1 Interpretation 

For the purposes of syntactical and semantic analysis only, all data which is declared 
locally, and is within a single compilation unit compiled with the #D directive, shall be 
processed as if it had been declared with the REMOTE attribute. Again, this data will 
be referred to as Remote #D data. 

All restrictions and limitations which currently exist for REMOTE data references will 
also exist for Remote #D data references. Refer to Section 8.10 of the HAL/S-FC 
User's Manual for more information. 

Specifically, these restrictions are: a) no assignments of Remote #D addresses into 
(16-bit) NAME variables; b) not allowing the declaration of Remote #D EVENT 
variables. 
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4.2.3.2 Detailed Implied/Derived Requirements 

4.2.3.2.1 The compiler shall internally "turn on" the REMOTE attribute for all local 
variables which are declared within a compilation unit containing the #D 
directive. 

4.2.3.2.2 Once the REMOTE attribute is "turned on" for Remote #D data, the 
compiler shall process the HAL source code using existing error analysis 
techniques and error messages. 

4.2.3.2.3 Because the REMOTE attribute must be "turned off" during code 
generation (see section 4.2.4.2), supplemental error checking shall be 
used for parameter checking. 

4.2.3.2.4 It shall be legal to assign Remote #D addresses into (32-bit) NAME 
REMOTE variables. This requires a conversion of a YCON (1 6-bit offset) 
plus associated DSE into ZCON format. 

4.2.3.2.5 In order for Remote #D data to be passed by reference to REMOTE 
Runtime Library routines the way current REMOTE data is handled, the 
YCON to ZCON conversion of 4.2.3.2.4 shall be used. 

4.2.3.2.6 The HAL/S WRITE statement shall be the means by which Remote #D 
data can be output during testing. 

4.2.3.3 Current Error Message Usage 

The following existing errors will be used to indicate when the use of Remote #D data 
has violated a compiler restriction: 

DM 07- SEVERITY 1 

ATTEMPT TO INITIALIZE A NON-REMOTE NAME WITH A REMOTE 
VARIABLE 

XQ102- SEVERITY 2 

ATTEMPT TO ASSIGN NAME OF REMOTE DATA ITEM TO A 16 BIT 
NAME VARIABLE 

FT111 - SEVERITY 2 

MISMATCHED ARGUMENTS IN %NAMECOPY STATEMENT. REMOTE 
SOURCE NOT ALLOWED WITH NON-REMOTE DESTINATION IN 
%NAMECOPY STATEMENT 

FT110- SEVERITY 2 

MISMATCHED ARGUMENTS IN %NAMEADD STATEMENT. REMOTE 
SOURCE NOT ALLOWED WITH NON-REMOTE DESTINATION IN 
%NAMEADD STATEMENT 

FT112 SEVERITY 2 

PARAMETER #?? MAY NOT BE NAME(NAMEVAR) IF NAMEVAR LIVES 
REMOTE 

DA9 - SEVERITY 2 

ILLEGAL ATTRIBUTE SPECIFIED FOR EVENT DATA TYPE 
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4.2.3.4 FCOS Restrictions on #D Data 

Due to FCOS restrictions, certain real time operations cannot occur with 
DATA_R EMOTE in effect (i.e. outside of sector 0/1). An XR4 error message (severity 
2) will be generated for any of the following conditions when DATA_R EMOTE is in 
effect: 

- EQUATE EXTERNAL to a #D symbol; 

- SCHEDULE statement with an ON, WHILE or UNTIL event option in a non- 
reentrant module; 

- WAIT FOR statement in a non-reentrant module. 
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4.2.3.5 Compiler Implementation Design 



COMMON DATA 


NEW DATA REMOTE Boolean 












symbol table REMOTE attribute flags 




PASS1 


PASS2 


PASS3 


SYNTHESIZE 

in processing declared data: 
set REMOTE attribute (3.2.1) 






new GENE RATE. PARM_STAT 
if CSECTJYPE of parameter is #D (3.2.2) 
then error FT1 08 (3.2.3) 














GENERATE.VMCALL 
CHAR_CALL, CTON, 
COMPARE_STRUCTURE 
GEN_CLASSO.USE_MSTRUC 
GEN_CLASS0 

setup to call REMOTE RTL routine if 
CSECT_TYPE of parameter is #D ,g 2 5 ^ 












GENERATE. BIT_STORE 
CHAR_CALL, CTON, 
GEN_CLASS0 
GEN CLASS1 

(3.2.3) 












GENERATE.STRUCTFIX, 

GET_OPERAND 

if CSECTJYPE of data is #D 

then set Boolean LIVES_REMOTE to trigger 

NAME error-checking 

(3.2.2) 












GENERATE.CLASSO.SETJOJJST 

if CSECT_TYPE of aggregate is #D 

then copy to stack before calling, then 
copy to stack before calling output RTL 
routine 

(3.2.6) 












GENERATE. FORCE_ADDRESS 
if data assigned to NAME REMOTE does 
not have REMOTE attribute 
then convert to YCON+DSE to ZCON 

(3.2.4) 











Figure 4-3 Enforce Compiler Restrictions on #D Data 
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4.2.4 Manipulate #D Data Using Extended Addressing Techniques 

Manipulation of program data addresses should make use of Extended Addressing 
techniques where appropriate. 

4.2.4.1 Interpretation 

The HAL/S FC compiler normally uses ZCON (32-bit indirect address constant) 
addressing to manipulate (load and store) REMOTE data. Remote #D data will be 
manipulated using YCON (16-bit base register) addressing techniques. 

The DSEs of the registers used to address the Remote #D data shall contain the DSE 
sector number. This allows standard YCON addressing to be used to point to REMOTE 
data. Although all eight general registers have associated DSE registers, it is only valid 
for the compiler to use the DSEs associated with registers R0, R1 , R2, and R3, as 
FCOS only preserves these four during context switches. 

There may be some circumstances where DSE addressing can not be appropriately 
used, and ZCON addressing must be used instead; for instance, in assignments of 
Remote #D addresses to NAME REMOTE variables (see section 4.2.3.2). 

4.2.4.2 Detailed Implied/Derived Requirements 

4.2.4.2.1 Once the Remote #D registers and their DSEs have been initialized, the 
Remote #D data shall be referenced and manipulated in the same 
manner as local #D data is manipulated today. This requires the 
REMOTE attribute of Remote #D data to be "turned off", which in turn 
ensures that the SDF flags for local #D data are not changed. 

4.2.4.2.2 When the #D directive is used, general purpose registers R1 and R3 
shall be reserved for addressing Remote #D data, and only Remote #D 
data. These registers will be referred to as the Remote #D registers. 

4.2.4.2.3 When the #D directive is used, the #D compiler shall enforce restrictions 
such that when base addressing is used, only general register R2 (and 
no others) is used to reference COM POOL data. Otherwise, immediate 
addressing (no-base) is used for referencing COMPOOL data. 

4.2.4.2.4 When the #D directive is used, special handling of the Remote #D 
registers and their DSEs shall be required for the MVH instruction to 
function properly. 
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4.2.4.3 Compiler Implementation Design 



COMMON DATA 


NEW DATA_REMOTE Boolean 












symbol table REMOTE attribute flags 




PASS1 


PASS2 


PASS3 




INITIALISE. SET NEST AND LOCKS 

if CSECT TYPE = #R then (1 .2.4) 
clear REMOTE attribute (4.2.1 ) 












new GENERATE. CHECK_RESTORE in R1/R3 for base 

addressing, or the next instruction is a branch 

then restore R1/R3 m 2 2) 












GENERATE. EMITRR.EMITRX, 
EMITSI, EMITP, EMITSP 

if R1/R3 has been changed from the original#D pointer 
value (42 m 
then call CHECK RESTORE v ' ' ; 












new GENERATE. REG_STAT 
perform register restriction: 
four basic cases: 

1) loading MVH source operand: 
no change in register allocation 

2) loading address for RTL call: 
no change in register allocation 

3) target register is R1 or R3: 

if loading NAME or formal parameter 
then use R2 instead if loading non #D data 
then use R2 instead 

4) target register is R2: 

if loading #D data (4.2.2) 
then use R3 instead (4.2.3) 












GENERATE. GET R, 

RELOAD ADDRESSING, 

GUARANTEE ADDRESSABLE, 

FORCE ADDRESS, CHECK SI, 

ADDRESS STRUCTURE, 

REF STRUCTURE, 

FORCE_ADDRESS_LIT 

call REG_STAT after current allocation methods select a (4.2.2) 

target register (4.2.3) 












GENERATE. USE_MVH, 

if CSECT_TYPE of destination is #D 

then call GET_R to use R3 after a load of R3, clear its m 2 4) 

msb 











Figure 4-4 Manipulate #D Data Using Extended Addressing Techniques 
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5.0 PHASE 3 - SIMULATION DATA FILE GENERATION 

Phase 3 of the HAL/S-FC compiler has the primary function of providing Simulation 
Data Files (SDFs) for each unit of compilation. Phase 3 also produces user-oriented 
printouts upon special request. This section deals with the following Phase 3 functions: 

• SDF generation 

• Printed data 

5.1 SDF Generation 

Phase 3 synthesizes the SDF for a compilation unit from data received from previous 
Phases of the compiler. This data is primarily in two areas: a) The symbol table, 
created by Phase 1 and augmented by Phase 2, and b) The statement table similarly 
created by Phase 1 and 2. 

The detailed format of an SDF is controlled by the HAL/SDL ICD. The reader is 
referred there for details of SDF design beyond the overview presented in the next 
section. 

5.1.1 Overall SDF Design 

A Simulation Data File (SDF) is an organized and directoried collection of block, 
symbol, and statement data which is created by the HAL/S compiler from a single unit 
of compilation and stored in a permanent form for later use by simulation processors. 

There are basically three types of information contained in an SDF. These are: 

1. Symbol Data - contains the attributes of HAL/S symbols (labels and 
variables) such as name, class and type, relative core address, number of 
bytes in core occupied, etc. Also contains arrayness and dimensionality for 
arrayed variables, template linkages for elements of structures, and cross- 
reference information listing all statements within the compilation unit that 
may assign values to the symbol. 

2. Statement Data - contains the attributes of HAL/S statements such as type, 
Statement Reference Numbers (SRNs) if specified by the user, indices for 
all labels attached to each statement, and indices for all variables which may 
be assigned values by that statement. Also may optionally contain the 
relative core addresses of the first and last executable instructions emitted 
for that statement. 

3. Block and Directory Data - contains information about each HAL/S block and 
the symbols and statements contained within that block, plus information 
concerning the layout and organization of the SDF which minimizes the time 
needed to access desired data entries. 

An SDF is produced for all compilation units unless suppressed by the user (the 
TABLES/NOTABLES option). In the case of COMPOOL compilations, the SDF 
becomes somewhat simplified, having no executable statements and, consequently, no 
cross-reference data for its symbols. 
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SDFs are created as members of Partitioned Data Sets (PDSs) and are assigned 
names o 

f the form ##CCCCCC, where CCCCCC is the first six characters of the compilation 
unit name with any and all underscore characters removed. (Example: the SDFs for 
the compilation units SAMPLER and TEST_SAMPLE would be assigned the names 
##SAMPLE and ##TESTSA, respectively). The members are written in fixed record 
format with a block size and logical record length of 1680. 

The structure of the SDF will support three efficient types of access: 

1. Given the name of a symbol, and the name of the block in which it was 
declared, obtain the attributes of the symbol. 

2. Given a Statement Reference Number (SRN), obtain the attributes of the 
statement. 

3. Given an Internal Statement Number (ISN), obtain the attributes of the 
statement. 

In access methods 1 and 2, the SDF directory plays a key role. When the symbol name 
and its block are given, the directory will identify which particular physical record of the 
SDF contains the corresponding fixed-length Symbol Node. Once this record has been 
read into core, a simple and fast binary search will locate the symbol node which in turn 
"points" directly to the attributes of the symbol which are contained within a variable- 
length Symbol Data Cell. A virtually identical procedure can be used to locate 
statement data when the SRN is given. In this case, the fixed-length nodes involved in 
the binary search are called Statement Nodes, and their corresponding variable-length 
data cells are called Statement Data Cells. 

In contrast to access methods 1 and 2, which require directory help followed by binary 
searches, method 3 is direct. This is because there is a one-to-one correspondence 
between the ISN (compiler-generated Internal Statement Number) and the order of the 
Statement Nodes. The HAL/SDL ICD contains detailed descriptions of the SDF 
organization. 

5.2 Phase 3 Printed Data 

For each invocation of Phase 3, a set of tabular data is printed. The information 
presented deals with parameters relating to the SDF produced, such as number of SDF 
pages, numbers of block, symbol, and statement nodes, etc. 

In addition to the information which is always printed, two optional printouts are 
available. Under control of the TABLST compiler option, the user may request that 
symbolic, structured dump of the SDF be provided. In addition, under control of the 
TABDMP compiler option, the user may request that the contents of the SDF be 
displayed in a hexadecimal format, page by page. 

Immediately following the Phase 3 output, but before any optional output from TABDMP 
or TABLST, an advisory section is printed starting on a new page. This section contains 
information for the programmer about improvements that could be made to the source 

5-2 November 2005 



HAL/S Compiler System Specification USA003089 

32.0/17.0 



code of the program. 
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6.0 RUNTIME LIBRARY 

6.1 Introduction 

This section describes the HAL/S-FC runtime library as used to support the HAL/S-FC 
compiler. The Primary Avionics Software System (PASS) and Backup Flight Software 
(BFS) versions of the HAL/S-FC compiler use the same source code to build their 
respective runtime libraries. The material is organized to present both general design 
concepts and detailed interface and algorithm information. Following an introductory 
discussion of general conventions used throughout the library, descriptions of the 
individual routines are grouped according to the basic type of the routine. Each group 
is introduced by a quick-reference chart containing basic interface data. 

6.2 Basics and Conventions 

6.2.1 Origin and Format 

The HAL/S-FC compilers are supplied with runtime libraries. The library for PASS is a 
partitioned dataset (PDS) containing members in AP-101 load module format. The 
library for BFS is a PDS that contains object modules in the Eclipse format. 

The runtime library objects are built by assembling the identically named members of a 
source library that consists of statements written in AP-101 Basic Assembly Language 
(BAL). Each source library member is assembled with the value of the &SYSPARM 
system variable set to 'PASS' and 'BFS' respectively. The &SYSPARM variable is used 
in the macro library routines to isolate code sequences that are unique to either PASS 
or BFS. A macro library is used to standardize frequently used sequences of source 
code. 

The runtime libraries are built from these runtime library objects using methods that 
differ substantially between PASS and BFS. For PASS, some source library members 
have more than one entry point, in which case library ALIAS names are generated for 
each entry using the FIXOBJ tool. The AP-101 link editor is then invoked to generate 
the library in load module format. For BFS, the object modules are converted from AP- 
101 to Eclipse format using the SATSOBJ tool. The input commands to SATSOBJ 
specify that members beginning with '#L' are to be tagged as DATA type and all other 
library members as CODE type. The type assigned to a library member is used by the 
PILOT (Program Integration and Loading Tool) program to determine where the 
member should be placed in memory. The BFS runtime library is also marked with 
Version to ensure compatibility with other objects generated by flight software. 

Also included with the HAL/S-FC compilers are the ZCON libraries associated with 
PASS and BFS. The PASS ZCON library is created by assembling its associated 
source code using the same procedures that are used for the PASS runtime library. 
The BFS ZCON library is created using a special tool, BLDQCON, that simply requires 
a member list from the runtime library PDS as its input. The BFS ZCON library is also 
marked with Version to ensure compatibility with other objects generated. 
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6.2.2 Purpose 

The runtime library is used to supply routines, data and interfaces which are needed to 
execute a HAL/S program or group of programs which are not produced by the 
compiler's code generator. Most of the library consists of subroutines which are called 
from compiler generated code in a HAL/S statement. 

6.2.3 Intrinsics and Procedure Routines 

The library routines are divided into two groups: intrinsics and procedures. The main 
distinction is that procedure routines save the passed contents of all fixed point 
registers, while intrinsics do not. For this reason, a procedure can call another routine 
(e.g., vector (VV10S3) magnitude calls SQRT), but an intrinsic cannot. Intrinsics do not 
have a new stack level and therefore do not have any stack work areas. Because 
intrinsics do not save all passed contents of fixed point registers, they cannot restore 
them and must not destroy any register contents that must be returned to the calling 
program. Expansions of the macros within intrinsic routines are different from the 
expansions within procedure routines. 

6.2.4 Register Conventions in Runtime Library Routines 

6.2.4.1 General Purpose Registers R0-R7. 

R1-R3, R5-R7 : free use; 

R4 : return address during calling and exiting intrinsics, 

otherwise free use; 
R0 : stack base; 

Parameters : Intrinsics: any or all of R1, R2, R3, R5, R6, R7 can be 

used for parameter passing. 

Procedures: any or all of R2, R4, R5, R6, R7 can be 
used for parameter passing. 

6.2.4.2 Floating Point Registers F0-F7. 

Internal compiler tables indicate which floating point registers are used by each RTL 
routine. Any register which is used in an RTL routine will be reloaded after returning 
from that routine before further use. The only exception to this rule is registers which 
are not flagged in the compiler's internal tables, but are instead saved and restored by 
the RTL routine upon entry and exit from the routine. 

6.2.4.3 Interface Conventions. 

In addition to the parameter passing conventions summarized in general form in the 
previous two sections and given in detail in the individual library routine descriptions, 
the compiler has information defining the linkage conventions and register usage for 
each routine. 
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This section contains that information in a list formatted in four columns as follows: 



NAME 
CALL TYPE 



BANKO 



The primary or secondary entry point name. 

Either PROCEDURE or INTRINSIC to distinguish between 

routines which must be called via the SCAL instruction and 

those that must be called using BAL. 

YES indicates that the routine will always reside in Sector of 

the GPC and may therefore always be called directly (no ZCON 

needed). NO indicates that the routine may reside in a sector 

other than and must therefore be called via a long indirect 

address constant (ZCON). 

A list of registers which the compiler assumes to be modified 

across a call to the routine. Any registers not listed may be 

assumed to remain unmodified and therefore to maintain their 

previous contents. Underlined registers are not actually 

modified by the RTL routine, but the compiler still assumes that 

they are. 

Any modifications to compiler or library should be made carefully so as to maintain this 
interface properly. 



Registers assumed 
to be modified 





ROUTINE 


CALL TYPE 


BANKO 


REGISTERS ASSUMED TO BE MODIFIED 


1 


ACOS 


PROCEDURE 


NO 


F0, 


Fl, 


F2, 


F3, 


F4, 


F5 


2 


ACOSH 


PROCEDURE 


NO 


F0, 


Fl, 


F2, 


F3, 


F4, 


F5 


3 


ASIN 


PROCEDURE 


NO 


F0, 


Fl, 


F2, 


F3, 


F4, 


F5 


4 


ASINH 


PROCEDURE 


NO 


F0, 


Fl, 


F2, 


F3, 


F4, 


F5 


5 


ATAN 


PROCEDURE 


NO 


F0, 


Fl, 


F2, 


F3, 


F4, 


F5 


6 


ATANH 


PROCEDURE 


NO 


F0, 


Fl, 


F2, 


F3, 


F4, 


F5 


7 


BIN 


PROCEDURE 


NO 


F0, 


Fl 










8 


BOUT 


PROCEDURE 


NO 


F0, 


Fl 










9 


BTOC 


INTRINSIC 


NO 


Rl, 


R2, 


R3, 


R4, 


R5, 


R6, R7 


10 


CAS 


INTRINSIC 


NO 


Rl, 


R2, 


R3, 


R4, 


R5 




11 


CASP 


INTRINSIC 


NO 


Rl, 


R2, 


R3, 


R4, 


R5, 


R6 


12 


CASPV 


INTRINSIC 


NO 


Rl, 


R2, 


R3, 


R4, 


R5, 


R6 


13 


CASR 


PROCEDURE 


NO 


NONE 










14 


CASRP 


PROCEDURE 


NO 


NONE 










15 


CASRPV 


PROCEDURE 


NO 


NONE 










16 


CASRV 


PROCEDURE 


NO 


NONE 










17 


CASV 


INTRINSIC 


NO 


Rl, 


R2, 


R3, 


R4, 


R5, 




18 


CAT 


INTRINSIC 


NO 


Rl, 


R2, 


R3, 


R4, 


R5, 


R6, R7, F0, Fl 


19 


CATV 


INTRINSIC 


NO 


Rl, 


R2, 


R3, 


R4, 


R5, 


R6, R7, F0, Fl 


20 


CEIL 


INTRINSIC 


YES 


R4, 


R5, 


F0, 


Fl 






21 


CIN 


PROCEDURE 


NO 


NONE 










22 


CINDEX 


PROCEDURE 


NO 


R5, 


F0, 


Fl, 


F2, 


F3, 


F4, F5 


23 


CINP 


PROCEDURE 


NO 


F0, 


Fl 










24 


CLJSTV 


PROCEDURE 


NO 


F0, 


Fl 










25 


COLUMN 


PROCEDURE 


NO 


F0, 


Fl 










26 


COS 


INTRINSIC 


NO 


R2, 


R3, 


R4, 


, F0, Fl, F2, F3, F4, 


27 


COSH 


PROCEDURE 


NO 


F0, 


Fl, 


F2, 


F3, 


F4, 


F5 


28 


COUT 


PROCEDURE 


NO 


NONE 










29 


COUTP 


PROCEDURE 


NO 


NONE 










30 


CPAS 


PROCEDURE 


NO 


F0, 


Fl 










31 


CPASP 


PROCEDURE 


NO 


F0, 


Fl 










32 


CPASR 


PROCEDURE 


NO 


F0, 


Fl 










33 


CPASRP 


PROCEDURE 


NO 


F0, 


Fl 











F5 
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34 


CPR 


INTRINSIC 


NO 


R2, 


R3 


R4, 


R5, 


R6 




35 


CPRA 


PROCEDURE 


NO 


NONE 










36 


CPRC 


INTRINSIC 


NO 


R2, 


R3 


R4, 


R5, 


R6 




37 


CPSLD 


PROCEDURE 


NO 


R5, 


F0 


Fl 








38 


CPSLDP 


PROCEDURE 


NO 


R5, 


F0 


Fl 








39 


CPSST 


PROCEDURE 


NO 


R5, 


F0 


Fl 








40 


CPSSTP 


PROCEDURE 


NO 


R5, 


F0 


Fl 








41 


CRJSTV 


PROCEDURE 


NO 


F0, 


Fl 










42 


CSHAPQ 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3, 


F4, 


F5 


43 


CSLD 


PROCEDURE 


NO 


R5, 


F0 


Fl 








44 


CSLDP 


PROCEDURE 


NO 


R5, 


F0 


Fl 








45 


CSST 


PROCEDURE 


NO 


R5, 


F0 


Fl 








46 


CSSTP 


PROCEDURE 


NO 


R5, 


F0 


Fl 








47 


CSTR 


PROCEDURE 


NO 


NONE 










48 


CSTRUC 


INTRINSIC 


NO 


R2, 


R3 


R4, 


R5, 


R6 




49 


CTOB 


PROCEDURE 


NO 


R5, 


F0 


Fl 








50 


CTOD 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3, 


F4, 


F5 


51 


CTOE 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3, 


F4, 


F5 


52 


CTOH 


PROCEDURE 


NO 


R5, 


F0 


Fl 








53 


CTOI 


PROCEDURE 


NO 


R5, 


F0 


Fl 








54 


CTOK 


PROCEDURE 


NO 


R5, 


F0 


Fl 








55 


CTOO 


PROCEDURE 


NO 


R5, 


F0 


Fl 








56 


CTOX 


PROCEDURE 


NO 


R5, 


F0 


Fl 








57 


CTRIMV 


PROCEDURE 


NO 


F0, 


Fl 










58 


DACOS 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3, 


F4, 


F5 


59 


DACOSH 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3, 


F4, 


F5 


60 


DAS IN 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3, 


F4, 


F5 


61 


DASINH 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3, 


F4, 


F5 


62 


DATAN 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3, 


F4, 


F5 


63 


DATANH 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3, 


F4, 


F5 


64 


DATAN2 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3, 


F4, 


F5 


65 


DCEIL 


INTRINSIC 


YES 


R4, 


R5 


F0, 


Fl 






66 


DCOS 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3, 


F4, 


F5 


67 


DCOSH 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3, 


F4, 


F5 


68 


DEXP 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3 






69 


DFLOOR 


INTRINSIC 


YES 


R4, 


R5 


F0, 


Fl 






70 


DIN 


PROCEDURE 


NO 


F0, 


Fl 










71 


DLOG 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3, 


F4, 


F5 


72 


DMAX 


INTRINSIC 


NO 


R2, 


R4 


R5, 


F0, 


Fl 




73 


DMDVAL 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3, 


F4, 


F5 


74 


DMIN 


INTRINSIC 


NO 


R2, 


R4 


R5, 


F0, 


Fl 




75 


DMOD 


INTRINSIC 


NO 


R4, 


F0 


Fl, 


F2, 


F3, 


F4 


76 


DOUT 


PROCEDURE 


NO 


F0, 


Fl 










77 


DPROD 


INTRINSIC 


NO 


R2, 


R4 


R5, 


F0, 


Fl 




78 


DPWRD 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3, 


F4, 


F5 


79 


DPWRH 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3 






80 


DPWRI 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3 






81 


DROUND 


INTRINSIC 


YES 


R4, 


R5 


F0, 


Fl 






82 


DSIN 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3, 


F4, 


F5 


83 


DSINH 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3, 


F4, 


F5 


84 


DSLD 


PROCEDURE 


NO 


R5 












85 


DSNCS 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3, 


F4, 


F5 


86 


DSQRT 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3, 


F4, 


F5 


87 


DSST 


PROCEDURE 


NO 


NONE 










88 


DSUM 


INTRINSIC 


NO 


R2, 


R4 


R5, 


F0, 


Fl 




89 


DTAN 


PROCEDURE 


NO 


F0, 


Fl 


F2, 


F3, 


F4, 


F5 



F6, F7 



F6 



F5 
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90 


DTANH 


PROCEDURE 


NO 


F0, 


Fl, 


F2, 


F3, 


F4, 


F5 




91 


DTOC 


PROCEDURE 


NO 


F0, 


Fl, 


F2, 


F3, 


F4, 


F5 




92 


DTOH 


INTRINSIC 


YES 


R4, 


R5, 


F0, 


Fl 








93 


DTOI 


INTRINSIC 


YES 


R4, 


R5, 


F0, 


Fl 








94 


DTRUNC 


INTRINSIC 


YES 


R4, 


R5, 


F0, 


Fl 








95 


EATAN2 


PROCEDURE 


NO 


F0, 


Fl, 


F2, 


F3, 


F4, 


F5 




96 


EIN 


PROCEDURE 


NO 


F0, 


Fl 












97 


EMAX 


INTRINSIC 


NO 


R2, 


R4, 


R5, 


F0, 


Fl 






98 


EMIN 


INTRINSIC 


NO 


R2, 


R4, 


R5, 


F0, 


Fl 






99 


EMOD 


INTRINSIC 


NO 


R4, 


F0, 


Fl, 


F2, 


F3, 


F4, F5 




100 


EOUT 


PROCEDURE 


NO 


F0, 


Fl 












101 


EPROD 


INTRINSIC 


NO 


R2, 


R4, 


R5, 


F0, 


Fl 






102 


EPWR3 


PROCEDURE 


NO 


F0, 


Fl, 


F2, 


F3, 


F4, 


F5 




103 


EPWRH 


PROCEDURE 


NO 


F0, 


Fl, 


F2, 


F3 








104 


EPWRI 


PROCEDURE 


NO 


F0, 


Fl, 


F2, 


F3 








105 


ESUM 


INTRINSIC 


NO 


R2, 


R4, 


R5, 


F0, 


Fl 






106 


ETOC 


PROCEDURE 


NO 


F0, 


Fl, 


F2, 


F3, 


F4, 


F5 




107 


ETOH 


INTRINSIC 


YES 


R4, 


R5, 


F0, 


Fl 








108 


ETOI 


INTRINSIC 


YES 


R4, 


R5, 


F0, 


Fl 








109 


EXP 


PROCEDURE 


NO 


F0, 


Fl, 


F2, 


F3 








110 


FLOOR 


INLINE 


YES 


N/A 


(RTL not used) 






111 


GTBYTE 


INTRINSIC 


NO 


R2, 


R4, 


R5, 


F0, 


Fl 






112 


HIN 


PROCEDURE 


NO 


F0, 


Fl 












113 


HMAX 


INTRINSIC 


NO 


R2, 


R4, 


R5, 


R6 








114 


HMIN 


INTRINSIC 


NO 


R2, 


R4, 


R5, 


R6 








115 


HMOD 


INTRINSIC 


NO 


R2, 


R4, 


R5, 


R6, 


R7 






116 


HOUT 


PROCEDURE 


NO 


F0, 


Fl 












117 


HPROD 


INTRINSIC 


NO 


R2, 


R4, 


R5, 


R6 








118 


HPWRH 


PROCEDURE 


NO 


R5 














119 


HREM 


INTRINSIC 


NO 


R2, 


R4, 


R5, 


R6, 


R7 






120 


HSUM 


INTRINSIC 


NO 


R2, 


R4, 


R5, 


R6 








121 


HTOC 


PROCEDURE 


NO 


NONE 












122 


UN 


PROCEDURE 


NO 


F0, 


Fl 












123 


I MAX 


INTRINSIC 


NO 


R2, 


R4, 


R5, 


R6 








124 


IMIN 


INTRINSIC 


NO 


R2, 


R4, 


R5, 


R6 








125 


IMOD 


INTRINSIC 


NO 


R2, 


R4, 


R5, 


R6, 


R7 






126 


IOINIT 


PROCEDURE 


NO 


F0, 


Fl 












127 


I OUT 


PROCEDURE 


NO 


F0, 


Fl 












128 


I PROD 


INTRINSIC 


NO 


R2, 


R4, 


R5, 


R6, 


R7 






129 


IPWRH 


PROCEDURE 


NO 


R5 














130 


IPWRI 


PROCEDURE 


NO 


R5 














131 


I REM 


INTRINSIC 


NO 


R2, 


R4, 


R5, 


R6, 


R7 






132 


I SUM 


INTRINSIC 


NO 


R2, 


R4, 


R5, 


R6 








133 


ITOC 


PROCEDURE 


NO 


NONE 












134 


I TOD 


INTRINSIC 


YES 


R4, 


R5, 


F0, 


Fl 








135 


ITOE 


INTRINSIC 


YES 


R4, 


R5, 


F0, 


Fl 








136 


KTOC 


INTRINSIC 


NO 


Rl, 


R2, 


R3, 


R4, 


R5, 


R6, R7, F0, Fl 




137 


LINE 


PROCEDURE 


NO 


F0, 


Fl 












138 


LOG 


PROCEDURE 


NO 


F0, 


Fl, 


F2, 


F3, 


F4, 


F5 




139 


MMRDNP 


PROCEDURE 


NO 


NONE 












140 


MMRSNP 


PROCEDURE 


NO 


NONE 












141 


MMWDNP 


PROCEDURE 


NO 


F0, 


Fl 












142 


MMWSNP 


PROCEDURE 


NO 


F0, 


Fl 












143 


MM0DNP 


INTRINSIC 


NO 


Rl, 


R3, 


R4, 


R5, 


R6, 


R7, F0, Fl 




144 


MM0SNP 


INTRINSIC 


NO 


Rl, 


R3, 


R4, 


R5, 


R6, 


R7, FO, Fl 




145 


MM1DNP 


INTRINSIC 


NO 


Rl, 


R2, 


R3, 


R4, 


R5, 


R6, R7, FO, Fl, 


F2, 
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146 


MM1SNP 


INTRINSIC 


NO 


Rl 


R2, 


R3, 


R4, 


R5, 


R6, 


R7, 


FO, Fl 








147 


MM1TNP 


INTRINSIC 


NO 


Rl 


R2, 


R3, 


R4, 


R5, 


R6, 


R7, 


FO, Fl, 


F2, 


F3 




148 


MM1WNP 


INTRINSIC 


NO 


Rl 


R2, 


R3, 


R4, 


R5, 


R6, 


R7, 


FO, Fl, 


F2, 


F3 




149 


MM11DN 


INTRINSIC 


NO 


Rl 


R2, 


R3, 


R4, 


R5, 


R6, 


R7, 


FO, Fl, 


F2, 


F3 




150 


MM11D3 


INTRINSIC 


NO 


Rl 


R2, 


R4, 


R5, 


R7, 


FO, 


Fl, 


F2, F3, 


F4, 


F5 




151 


MM11SN 


INTRINSIC 


NO 


Rl 


R2, 


R3, 


R4, 


R5, 


R6, 


R7, 


FO, Fl 








152 


MM11S3 


INTRINSIC 


NO 


Rl 


R2, 


R4, 


R5, 


F0, 


Fl, 


F2, 


F3 








153 


MM12DN 


PROCEDURE 


NO 


F0 


Fl, 


F2, 


F3, 


F4, 


F5 












154 


MM12D3 


PROCEDURE 


NO 


F0 


Fl, 


F2, 


F3, 


F4, 


F5 












155 


MM12SN 


PROCEDURE 


NO 


F0 


Fl, 


F2, 


F3, 


F4, 


F5 












156 


MM12S3 


PROCEDURE 


NO 


F0 


Fl, 


F2, 


F3, 


F4, 


F5 












157 


MM13DN 


INTRINSIC 


NO 


R2 


R4, 


R5, 


R6, 


FO, 


Fl 












158 


MM13D3 


INTRINSIC 


NO 


R2 


R4, 


F0, 


Fl 
















159 


MM13SN 


INTRINSIC 


NO 


R2 


R4, 


R5, 


R6, 


FO, 


Fl 












160 


MM13S3 


INTRINSIC 


NO 


R2 


R4, 


F0, 


Fl 
















161 


MM14DN 


PROCEDURE 


NO 


F0 


Fl, 


F2, 


F3, 


F4, 


F5 












162 


MM14D3 


PROCEDURE 


NO 


F0 


Fl, 


F2, 


F3, 


F4, 


F5 












163 


MM14SN 


PROCEDURE 


NO 


F0 


Fl, 


F2, 


F3, 


F4, 


F5 












164 


MM14S3 


PROCEDURE 


NO 


F0 


Fl, 


F2, 


F3, 


F4, 


F5 












165 


MM15DN 


INTRINSIC 


NO 


Rl 


R4, 


R5, 


R6, 


R7, 


FO, 


Fl, 


F2, F3 








166 


MM15SN 


INTRINSIC 


NO 


Rl 


R4, 


R5, 


R6, 


R7, 


FO, 


Fl, 


F2, F3 








167 


MM17DN 


PROCEDURE 


NO 


F0 


Fl, 


F2, 


F3, 


F4, 


F5 












168 


MM17D3 


PROCEDURE 


NO 


F0 


Fl, 


F2, 


F3, 


F4, 


F5 












169 


MM17SN 


PROCEDURE 


NO 


F0 


Fl, 


F2, 


F3, 


F4, 


F5 












170 


MM17S3 


PROCEDURE 


NO 


F0 


Fl, 


F2, 


F3, 


F4, 


F5 












171 


MM6DN 


INTRINSIC 


NO 


Rl 


R2, 


R3, 


R4, 


R5, 


R6, 


R7, 


FO, Fl, 


F2, 


F3, 


F4, F5 


172 


MM6D3 


INTRINSIC 


NO 


Rl 


R2, 


R3, 


R4, 


R5, 


R6, 


R7, 


FO, Fl, 


F2, 


F3, 


F4, F5 


173 


MM6SN 


INTRINSIC 


NO 


Rl 


R2, 


R3, 


R4, 


R5, 


R6, 


R7, 


FO, Fl, 


F2, 


F3, 


F4, F5 


174 


MM6S3 


INTRINSIC 


NO 


Rl 


R2, 


R3, 


R4, 


R5, 


R6, 


R7, 


FO, Fl, 


F2, 


F3, 


F4, F5 


175 


MRODNP 


PROCEDURE 


NO 


F0 


Fl 




















176 


MROSNP 


PROCEDURE 


NO 


F0 


Fl 




















177 


MR1DNP 


PROCEDURE 


NO 


F0 


Fl 




















178 


MR1SNP 


PROCEDURE 


NO 


F0 


Fl 




















179 


MR1TNP 


PROCEDURE 


NO 


F0 


Fl 




















180 


MR1WNP 


PROCEDURE 


NO 


F0 


Fl 




















181 


MSTR 


PROCEDURE 


NO 


NOI 


-IE 




















182 




NOT USED 


























183 


MV6DN 


INTRINSIC 


NO 


Rl 


R2, 


R3, 


R4, 


R5, 


R6, 


R7, 


FO, Fl, 


F2, 


F3, 


F4, F5 


184 


MV6D3 


INTRINSIC 


NO 


Rl 


R2, 


R3, 


R4, 


R6, 


FO, 


Fl, 


F2, F3 








185 


MV6SN 


INTRINSIC 


NO 


Rl 


R2, 


R3, 


R4, 


R5, 


R6, 


R7, 


FO, Fl, 


F2, 


F3, 


F4, F5 


186 


MV6S3 


INTRINSIC 


NO 


Rl 


R2, 


R3, 


R4, 


FO, 


Fl, 


F2, 


F3 








187 


OTOC 


INTRINSIC 


NO 


Rl 


R2, 


R3, 


R4, 


R5, 


R6, 


R7, 


FO, Fl 








188 


OUTER1 


PROCEDURE 


NO 


F0 


Fl 




















189 


PAGE 


PROCEDURE 


NO 


F0 


Fl 




















190 


QSHAPQ 


PROCEDURE 


NO 


F0 


Fl 




















191 


RANDG 


PROCEDURE 


NO 


F0 


Fl, 


F2, 


F3 
















192 


RANDOM 


PROCEDURE 


NO 


F0 


Fl, 


F2, 


F3 
















193 


ROUND 


INTRINSIC 


YES 


R4 


R5, 


F0, 


Fl 
















194 


SIN 


INTRINSIC 


NO 


R2 


R3, 


R4, 


F0, 


Fl, 


F2, 


F3, 


F4, F5 








195 


SINH 


PROCEDURE 


NO 


F0 


Fl, 


F2, 


F3, 


F4, 


F5 












196 


SKIP 


PROCEDURE 


NO 


F0 


Fl 




















197 


SNCS 


INTRINSIC 


NO 


R2 


R3, 


R4, 


F0, 


Fl, 


F2, 


F3, 


F4, F5 








198 


SQRT 


INTRINSIC 


NO 


Rl 


R4, 


R5, 


R6, 


R7, 


FO, 


Fl, 


F2, F3 








199 


STBYTE 


INTRINSIC 


NO 


Rl 


R4, 


R5, 


F0, 


Fl 














200 


TAB 


PROCEDURE 


NO 


F0 


Fl 




















201 


TAN 


PROCEDURE 


NO 


F0 


Fl, 


F2, 


F3, 


F4, 


F5 
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202 


TANH 


PROCEDURE 


NO 


F0 


Fl 


F2 


F3 


F4, 


F5 










203 


TRUNC 


INTRINSIC 


YES 


R4 


R5 


F0 


Fl 














204 


VM6DN 


INTRINSIC 


NO 


Rl 


R2 


R3 


R4 


R5, 


R6, 


R7, 


FO, Fl, 


F2, F3, 


F4, F5 


205 


VM6D3 


INTRINSIC 


NO 


Rl 


R2 


R3 


R4 


R5, 


FO, 


Fl, 


F2, F3, 


F4, F5 




206 


VM6SN 


INTRINSIC 


NO 


Rl 


R2 


R3 


R4 


R5, 


R6, 


R7, 


FO, Fl, 


F2, F3, 


F4, F5 


207 


VM6S3 


INTRINSIC 


NO 


Rl 


R2 


R3 


R4 


R5, 


FO, 


Fl, 


F2, F3 






208 


V06DN 


INTRINSIC 


NO 


Rl 


R2 


R3 


R4 


R5, 


R6, 


R7, 


FO, Fl, 


F4, F5 




209 


V06D3 


INTRINSIC 


NO 


Rl 


R2 


R3 


R4 


R5, 


R6, 


FO, 


Fl 






210 


V06SN 


INTRINSIC 


NO 


Rl 


R2 


R3 


R4 


R5, 


R6, 


R7, 


FO, Fl, 


F4, F5 




211 


V06S3 


INTRINSIC 


NO 


Rl 


R2 


R3 


R4 


R5, 


R6, 


FO, 


Fl 






212 


VRODN 


PROCEDURE 


NO 


F0 


Fl 


















213 


VRODNP 


PROCEDURE 


NO 


F0 


Fl 


















214 


VROSN 


PROCEDURE 


NO 


F0 


Fl 


















215 


VROSNP 


PROCEDURE 


NO 


F0 


Fl 


















216 


VR1DN 


PROCEDURE 


NO 


F0 


Fl 


















217 


VR1DNP 


PROCEDURE 


NO 


F0 


Fl 


















218 


VR1SN 


PROCEDURE 


NO 


F0 


Fl 


















219 


VR1SNP 


PROCEDURE 


NO 


F0 


Fl 


















220 


VR1TN 


PROCEDURE 


NO 


F0 


Fl 


















221 


VR1TNP 


PROCEDURE 


NO 


F0 


Fl 


















222 


VR1WN 


PROCEDURE 


NO 


F0 


Fl 


















223 


VR1WNP 


PROCEDURE 


NO 


F0 


Fl 


















224 


WODN 


INTRINSIC 


NO 


Rl 


R4 


R5 


F0 


Fl 












225 


WODNP 


INTRINSIC 


NO 


Rl 


R4 


R5 


R7 


F0, 


Fl 










226 


WOSN 


INTRINSIC 


NO 


Rl 


R4 


R5 


F0 














227 


WOSNP 


INTRINSIC 


NO 


Rl 


R4 


R5 


R7 


F0, 


Fl 










228 


W1DN 


INTRINSIC 


NO 


Rl 


R2 


R4 


R5 


F0, 


Fl 










229 


W1DNP 


INTRINSIC 


NO 


Rl 


R2 


R4 


R5 


R6, 


R7, 


FO, 


Fl 






230 


VV1D3 


INTRINSIC 


NO 


Rl 


R2 


R4 


F0 


Fl, 


F2, 


F3, 


F4, F5 






231 


VV1D3P 


INTRINSIC 


NO 


Rl 


R2 


R4 


R5 


R6, 


R7, 


FO, 


Fl 






232 


W1SN 


INTRINSIC 


NO 


Rl 


R2 


R4 


R5 


F0, 


Fl 










233 


W1SNP 


INTRINSIC 


NO 


Rl 


R2 


R4 


R5 


R6, 


R7, 


FO, 


Fl 






234 


VV1S3 


INTRINSIC 


NO 


Rl 


R2 


R4 


F0 


Fl, 


F2, 


F3, 


F4, F5 






235 


VV1S3P 


INTRINSIC 


NO 


Rl 


R2 


R4 


R5 


R6, 


R7, 


FO, 


Fl 






236 


W1TN 


INTRINSIC 


NO 


Rl 


R2 


R4 


R5 


F0, 


Fl 










237 


W1TNP 


INTRINSIC 


NO 


Rl 


R2 


R4 


R5 


R6, 


R7, 


FO, 


Fl 






238 


VV1T3 


INTRINSIC 


NO 


Rl 


R2 


R4 


F0 


Fl, 


F2, 


F3, 


F4, F5 






239 


VV1T3P 


INTRINSIC 


NO 


Rl 


R2 


R4 


R5 


R6, 


R7, 


FO, 


Fl 






240 


W1WN 


INTRINSIC 


NO 


Rl 


R2 


R4 


R5 


F0, 


Fl 










241 


VV1WNP 


INTRINSIC 


NO 


Rl 


R2 


R4 


R5 


R6, 


R7, 


FO, 


Fl 






242 


W1W3 


INTRINSIC 


NO 


Rl 


R2 


R4 


F0 


Fl 












243 


W1W3P 


INTRINSIC 


NO 


Rl 


R2 


R4 


R5 


R6, 


R7, 


FO, 


Fl 






244 


W10DN 


PROCEDURE 


NO 


F0 


Fl 


F2 


F3 


F4, 


F5 










245 


W10D3 


PROCEDURE 


NO 


F0 


Fl 


F2 


F3 


F4, 


F5 










246 


VV10SN 


PROCEDURE 


NO 


F0 


Fl 


F2 


F3 


F4, 


F5 










247 


VV10S3 


PROCEDURE 


NO 


F0 


Fl 


F2 


F3 


F4, 


F5 










248 


W2DN 


INTRINSIC 


NO 


Rl 


R2 


R3 


R4 


R5, 


FO, 


Fl 








249 


VV2D3 


INTRINSIC 


NO 


Rl 


R2 


R3 


R4 


F0, 


Fl, 


F2, 


F3, F4, 


F5 




250 


W2SN 


INTRINSIC 


NO 


Rl 


R2 


R3 


R4 


R5, 


FO, 


Fl 








251 


VV2S3 


INTRINSIC 


NO 


Rl 


R2 


R3 


R4 


F0, 


Fl, 


F2, 


F3, F4, 


F5 




252 


W3DN 


INTRINSIC 


NO 


Rl 


R2 


R3 


R4 


R5, 


FO, 


Fl 








253 


VV3D3 


INTRINSIC 


NO 


Rl 


R2 


R3 


R4 


FO, 


Fl 










254 


W3SN 


INTRINSIC 


NO 


Rl 


R2 


R3 


R4 


R5, 


FO, 


Fl 








255 


VV3S3 


INTRINSIC 


NO 


Rl 


R2 


R3 


R4 


FO, 


Fl, 


F2, 


F3, F4, 


F5 




256 


W4DN 


INTRINSIC 


NO 


Rl 


R2 


R4 


R5 


FO, 


Fl, 


F2, 


F3 






257 


W4D3 


INTRINSIC 


NO 


Rl 


R2 


R4 


F0 


Fl, 


F2, 


F3 
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ROUTINE 


CALL TYPE 


BANK0 


REGISTERS ASSUMED TO BE 


MODIFIED 




258 


VV4SN 


INTRINSIC 


NO 


Rl, 


R2, 


R4, 


R5, 


F0, 


Fl, 


F2, 


F3 






259 


VV4S3 


INTRINSIC 


NO 


Rl, 


R2, 


R4, 


F0, 


Fl 


F2, 


F3 








260 


W5DN 


INTRINSIC 


NO 


Rl, 


R2, 


R4, 


R5, 


F0, 


Fl, 


F2, 


F3, 


F4, F5, F6,F7 


261 


W5D3 


INTRINSIC 


NO 


Rl, 


R2, 


R4, 


F0, 


Fl, 


F2, 


F3, 


F4, 


F5, F6,F7 


262 


W5SN 


INTRINSIC 


NO 


Rl, 


R2, 


R4, 


R5, 


FO, 


Fl, 


F2, 


F3 






263 


W5S3 


INTRINSIC 


NO 


Rl, 


R2, 


R4, 


F0, 


Fl, 


F2, 


F3 








264 


W6DN 


INTRINSIC 


NO 


Rl, 


R2, 


R3, 


R4, 


R5, 


FO, 


Fl, 


F2, 


F3 




265 


W6D3 


INTRINSIC 


NO 


R2, 


R3, 


R4, 


F0, 


Fl, 


F2, 


F3 








266 


W6SN 


INTRINSIC 


NO 


Rl, 


R2, 


R3, 


R4, 


R5, 


FO, 


Fl, 


F2, 


F3 




267 


W6S3 


INTRINSIC 


NO 


R2, 


R3, 


R4, 


F0, 


Fl, 


F2, 


F3 








268 


W7DN 


INTRINSIC 


NO 


Rl, 


R2, 


R4, 


R5, 


FO, 


Fl 










269 


VV7D3 


INTRINSIC 


NO 


Rl, 


R2, 


R4, 


F0, 


Fl, 


F2, 


F3, 


F4, 


F5 




270 


W7SN 


INTRINSIC 


NO 


Rl, 


R2, 


R4, 


R5, 


FO, 


Fl 










271 


VV7S3 


INTRINSIC 


NO 


Rl, 


R2, 


R4, 


F0, 


Fl, 


F2, 


F3, 


F4, 


F5 




272 


VV8DN 


INTRINSIC 


NO 


Rl, 


R2, 


R3, 


R4, 


R5, 


FO, 


Fl 








273 


W8D3 


INTRINSIC 


NO 


Rl, 


R2, 


R3, 


R4, 


R5, 


FO, 


Fl 








274 


W8SN 


INTRINSIC 


NO 


Rl, 


R2, 


R3, 


R4, 


R5, 


FO, 


Fl 








275 


W8S3 


INTRINSIC 


NO 


Rl, 


R2, 


R3, 


R4, 


R5, 


FO, 


Fl 








276 


W9DN 


PROCEDURE 


NO 


F0, 


Fl, 


F2, 


F3, 


F4, 


F5 










277 


W9D3 


PROCEDURE 


NO 


F0, 


Fl, 


F2, 


F3, 


F4, 


F5 










278 


W9SN 


PROCEDURE 


NO 


F0, 


Fl, 


F2, 


F3, 


F4, 


F5 










279 


W9S3 


PROCEDURE 


NO 


F0, 


Fl, 


F2, 


F3 














280 


VX6D3 


INTRINSIC 


NO 


Rl, 


R2, 


R3, 


R4, 


FO, 


Fl, 


F2, 


F3, 


F4, F4 




281 


VX6S3 


INTRINSIC 


NO 


Rl, 


R2, 


R3, 


R4, 


FO, 


Fl, 


F2, 


F3 






282 


XTOC 


INTRINSIC 


NO 


Rl, 


R2, 


R3, 


R4, 


R5, 


R6, 


R7, 


FO, 


Fl 





6.2.5 Referencing Conventions 

6.2.5.1 CSECT Names. 

In order to comply with the CSECT naming standards described in the HAL/SDL ICD, 

all library code CSECTs begin with two alphabetic characters (A-Z) 1 . All library primary 
names and aliases are unique to 6 characters. 

Whenever a data CSECT is needed for a particular library module, it is given the 
CSECT name #l_nnnnnn, where nnnnnn is the first 6 characters of the primary entry 
name. 

6.2.5.2 ZCONs. 

For each primary entry point and alternate entry point in the runtime library, a member 
exists in a separate ZCON library. The members in the ZCON library contain address 
constants which refer to the actual entry points. Thus, for the library routine named SIN 
which has an entry point named COS, there are two members in the ZCON library 
named #QSIN and #QCOS. These #Q modules contain references to the respective 
entry points. The individual ZCONs in the ZCON library are created by assembly code 
like the following: 



1 . Sector routines are an exception: their CSECT names begin with #0. This is to conform to link editor conventions 
for routines which must reside in sector 0. Sector routines are identified in the list in Section 6.2.4.3 and in the 
boxed area of the individual library routine description. 
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#QSIN CSECT 

DC Z (SIN, ,X'E' ) 

EXTRN SIN 

END 

Some library routines make reference to other library routines via the ACALL macro 
(see Section 6.2.7). The ACALL macro references a library routine via a ZCON as is 
done when compiler-emitted code references a library routine. 

6.2.6 Coding Structure 

The following outline represents the standard coding structure of all library members. 

1 TITLE 

2 WORKAREA macro definition used only if additional stack storage was needed 

3 AMAIN 

4 * Comment card describing the function of the primary entry point 

5 INPUT 

6 OUTPUT 

7 Body of executable code including use of WORK, AERROR, AEXIT macros where 

needed and alternate entry points defined using the AENTRY macro, function 
comment card, and INPUT and OUTPUT macros in the same manner as the 
primary entry point. 

8 DC constant area addressed via PC relative mode 

9 ADATA, followed by a DC constant area addressed via base and displacement 

mode. Used only if constants need to be indexed. 

10 ACLOSE 

6.2.7 The Macro Library 

To standardize interface conventions, automate production of commonly used code 
sequences, and impose a structure to the runtime library, a series of macros are used. 
This section describes the function, use, and expansion of these macros. Lower case 
letters are used to indicate variable fields. Square brackets [ ] indicate optional fields, 
braces { } indicate a choice of required fields. 

AMAIN 

name AMAIN T INTSIC = JYES \ 

1 INTERNAL f 

ACALL = YES 
SECTOR = 

Function : 

Defines "name" as the primary entry point of a routine. 

INTSIC=YES: 

Defines the routine (and any entry points) as an intrinsic. If the INTSIC operand is 
omitted, the routine is defined as a procedure. 
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INTSIC=INTERNAL: 

Defines an intrinsic which is called only by other routines in the library. At present, this 
is only GTBYTE and STBYTE. 

ACALL=YES : 

(Valid only for procedure routines) Allows use of the ACALL macro within the routine 

(See ACALL description). 

SECTOR=0 : 

Defines the routine (intrinsic or procedure) as a Sector routine. 

Expansion: 

The macro first defines the primary entry "name" (the AMAIN label) as the CSECT 
name, unless SECTOR=0 was specified. In the latter case, the CSECT name is 
generated by prefixing "name" with #0, and the primary entry "name" is defined using 
the DS and ENTRY statements. The options selected via the AMAIN operands are 
saved in global SETB variables for testing by the other macros. If either INTSIC option 
was selected, the macro ends. Otherwise, a procedure is being defined, so the STACK 
DSECT is generated. 

The STACK DSECT consists of a standard 18 halfword area, including symbols for the 
saved copies of the fixed point register parameters (ARG2, ARG4, ARG5, ARG6, 
ARG7), followed by the WORKAREA macro. The WORKAREA macro is the means by 
which additional storage beyond the standard stack of 18 halfwords may be defined. If 
such storage is needed a local WORKAREA macro must have been defined earlier in 
the source which contains the appropriate DS assembler statements. These 
statements are thus incorporated as the remainder of the STACK DSECT. If additional 
storage is not needed, the local WORKAREA macro is not defined. As a result, the 
system WORKAREA macro is invoked, which does not define any storage, leaving the 
STACK DSECT at its standard length. The system WORKAREA macro also sets a 
global SETB variable, which is tested later by the AMAIN macro to determine if the 
stack is standard or augmented. The STACK DSECT is then terminated by resuming 
the original CSECT. The STACK DSECT is defined in this sequence so that the 
assembler will output the SYM records in the order expected by the link editor's stack 
size algorithm. A USING statement is generated to give addressability to the stack 
area. Finally, the executable code of the entry prologue is generated. For PASS, this 
consists of an NIST instruction to zero the 10th halfword of the new stack frame, 
establishing a null ON ERROR environment. The Backup Operating System (BOS) 
does not require NIST, therefore, BFS does not use NIST. In addition, if both 
ACALL=YES is specified and a local WORKAREA provided, the default stack size of 18 
set up by the SCAL microcode will be insufficient, so an IAL to set up the new stack size 
is generated. 
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AENTRY 

name AENTRY 

Function : 

Defines "name" as a secondary entry point. 

Expansion : 

"name" is externally defined using the DS and ENTRY statements. If the routine was 
defined as an intrinsic, the macro ends. Otherwise, the executable code of the entry 
prologue is generated in the same manner as the AMAIN macro. 

AEXIT 



name AEXIT 



Function: 



KEEP 
CC =J (rx) 

EQ 

NE 
COND = code 



Cause return of control from a procedure or intrinsic routine. 

CC: 

Used to pass a condition code back to the caller. It can be used only if OUTPUT CC 

was specified (See OUTPUT macro). 

Valid for Intrinsics Only: 

CC=KEEP : 

Passes back the condition code as is. 

CC=(rx) : 

Passes back the condition code generated by a LR rx, rx. 

Valid for Procedures Only : 

CC=EQ: 

Passes back an equal (B'00') condition code. 

CC=NE : 

Passes back a not equal (B'11 ') condition code. 

Note: The CC= operand is used in the following 8 routines: 

CPR, CPRA, CSTR, CSTRUCT, W8DN, W8D3 , W8SN, and W8S3 . 

COND=code : 

Used to do a conditional return, i.e. based on the current condition code. Valid for 
procedures only. "Code" is either a number used as the mask on a BC opcode, or a 
letter or letter pair representing the mask in the extended BC mnemonic op codes (E, Z, 
NE, NZ, H, O, L, M, HE, LE, NL, NM, NH, NO). This operand may be used to improve 
the efficiency of some routines. If used, be sure valid executable code follows it, so the 
fall through case is valid. 
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Expansion : 

The code generated by the AEXIT macro depends primarily on whether the routine is 
an intrinsic or procedure, and secondarily on what operands were supplied, and, in the 
case of intrinsics, what fixed point registers were used. The expansions for intrinsics 
and procedures are described separately. 

Intrinsics: 

If register(s) R1 and/or R3 have been defined (see INPUT, OUTPUT, and WORK 
macros), it is assumed they have been modified and must be restored from the stack, 
since they are the addressing registers for compiled code. This is done via the 
appropriate LH instruction(s), or IHL and SLL instructions if CC=KEEP was specified, 
since LH would destroy the existing condition code. If CC=(rx) was specified, a LR rx,rx 
is generated to set the condition code. Finally, a BCRE or BCR is generated to cause a 
return to the caller. A BCR is generated if SECTOR=0 or INTSIC=INTERNAL was 
specified on the AMAIN macro. 

Procedures : 

If CC=EQ or CC=NE was specified, the condition code bits in the return PSW in the 
stack are zeroed or set via the ZB or SB instruction. Then, an SRET instruction is 
generated with a mask of 7 if the COND operand was omitted or the appropriate mask 
if it was supplied. 

I2DEDR 

name I2DEDR dpscalarl , dpscalar2, dpscalar3, dpscalar4 
Function : 

I2DEDR was substituted for DEDR in DMOD in order to avoid incorrect results caused 
by some inputs. See CR1 1 1 64 and DR1 06660. 

IBMCEDR 

name IBMCEDR dpscalarl, dpscalar2 
Function : 

IBMCEDR was substituted for CEDR in DMDVAL and DMOD in order to avoid incorrect 
results caused by an incorrectly set condition code. See CR11163 and DR1 06644. 

INPUT 

[register spec type comments] 
INPUT 1NONE t 

Function : 

Defines input interface of primary or alternate entry point and symbolic names for the 
register(s). 

Register Spec : 

One of R1, R2, R3, R4, R5, R6, R7, F0, F1, F2, F3, F4, F5, F6, or F7. If there is no 
input (RANDOM, RANDG only), code NONE. If there is more than one, use 
continuation lines for each subsequent one (see examples). 
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Type Comments: 
type 

SCALAR 
MATRIX (3, 3) 
MATRIX (N,N) 
VECTOR (3) 
VECTOR (N) 
INTEGER (N) 
CHARACTER 

Examples: 



precision 

SINGLE/DOUBLE 



units 

RADIANS 





col. 16 






col . 




i 






i 


(1) 


INPUT F0 


SCALAR 


SINGLE 


RADIANS X 


(2) 


INPUT R2 , 


VECTOR (N) 


DOUBLE 


X 




R3, 


VECTOR (N) 


DOUBLE 


X 




R5 


INTEGER (N) 


SINGLE 





72 



Note: R1 and R3 are illegal inputs for procedure routines and R4 is illegal for 
intrinsic routines. 
Expansion : 

For each register spec supplied, the macro checks for a valid register symbolic, or for 
the special case of NONE. If the symbolic register name has not been previously 
defined, an EQU statement is generated to define it. The macro also tests for the illegal 
use of R1 or R3 for a procedure parameter and R4 for an intrinsic. A global arrayed 
SETB variable is set, which in conjunction with the AMAIN, AENTRY, and ACLOSE 
macros, will guarantee that an INPUT macro has been supplied for each entry point 
(see ACLOSE macro). 

OUTPUT 

(register spec type comments 



OUTPUT 



iNONE 

lee 



Function: 

Defines output interface of primary or alternate entry point. 

Operand form is identical to that of INPUT macro, with the addition of CC as a 
possibility. This indicates that the condition code is the output of the routine. If CC is 
specified, the CC= option of the AEXIT macro must be used. 

Expansion : 

Same as for INPUT macro, except for special processing for the CC operand. If CC is 
supplied, a global SETB variable is set which is tested by the AEXIT macro for 
consistency with its CC operand. 
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WORK 

WORK {register spec} 

Function : 

Defines work registers. 

Expansion : 

Similar to INPUT and OUTPUT, except that this macro is required only if additional 
register symbols need to be defined. 

ABAL 

ABAL name 

Function : 

Calls the intrinsic routine "name", valid only in a procedure routine. 

Expansion : 

When the runtime library routine that uses ABAL is compiled and the routine "name" is 
in sector then ABAL generates a BAL 4, name. If the routine "name" is not in sector 
0, then ABAL generates object code to call the intrinsic routine "name" indirectly. An 
EXTRN statement is also generated if "name" has not been previously defined. 

ACALL 

ACALL name 

Function : 

Calls the procedure routine "name", valid only in a procedure routine defined with 
ACALL=YES option. 

Expansion : 

ACALL generates object code to call the procedure routine "name" indirectly. An 
EXTRN statement is also generated if "name" has not been previously defined. 

AERROR 

AERROR number cause comment 

Function : 

Generates a send error SVC instruction to signal a run time error to the FCOS. 

Number : 

The error number. 

Cause Comment : 

Brief description of the cause of the error. 
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Expansion : 

This macro accumulates, in GBLA variables, all errors sent within one assembly. It also 
checks to see that the error number indicates as an argument to AERROR is less than 
a maximum value. The actual code emitted is an SVC in which the operand is the label 
of an SVC parameter list to be emitted by the ADATA or ACLOSE macro via the 
ERRPARMS macro. If any error is sent more than once in an assembly, AERROR 
insures that only one SVC parameter list for that error is used. 

ADATA 

Function : 

Defines the start of a separate data CSECT for indexable constant data. 
Expansion : 

A CSECT is created with the name #l_nnnnnn where nnnnnn is the first 6 characters of 
the primary CSECT name defined by the AMAIN macro. The ADATA macro ends 
leaving the data CSECT in effect so that any user-defined data following the macro call 
will be part of the data CSECT. The ERRPARMS macro is invoked so that any possible 
AERROR SVC parameter lists will appear before the indexed data. This is necessary 
so that the assembler will use the direct addressing mode instead of base and 
displacement. 

ACLOSE 

ACLOSE 

Function : 

Terminates the assembly. 

Expansion : 

The macro first invokes the ERRPARMS macro to create the AERROR SVC parameter 
lists. (See ERRPARMS macro). It then checks via arrayed global SETB variables if 
INPUT and OUTPUT macros were supplied for each entry point. Finally, it generates 
an END assembler statement, terminating the assembly. 

ERRPARMS 

ERRPARMS 

Function : 

Generates SVC parameter lists for the AERROR macro. 

Expansion : 

This macro is invoked by the ADATA and ACLOSE macro. It first tests a global SETB 
variable to see if it has already been invoked, in which case the macro does nothing. 
Otherwise, it generates a CSECT statement to define the data CSECT (FCOS 
parameter lists must reside in the data sector). The CSECT name is #Lname, where 
"name" is the primary entry name. The parameter lists are generated by looping 
through arrayed global SETA variables in which the AERROR macro saved the unique 
error numbers. ERRPARMS is invoked by the ADATA macro because the parameter 
lists must be before any indexed data following the optional ADATA macro. It is invoked 
by the ACLOSE macro in case the ADATA macro is not used. 
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WORKAREA 

WORKAREA 
Function : 

An automatically invoked, user-created macro used to define extensions of the stack 
area for temporary reentrant storage. The WORKAREA macro is invoked by the 
AMAIN macro in procedure routines. A system supplied default is invoked in the 
absence of a user-created macro. 

Expansion : 

The system WORKAREA macro merely sets a global SETB variable which is tested by 
the AMAIN macro to determine whether the system or user macro is being expanded. 

NOTE: Listings of the members of the MACRO library have been deleted from 
this document. 

6.2.8 Precision Requirements 

Single precision runtime library routines are required to return results that are accurate 
to 6 significant decimal digits. Double precision routines are required to return results 
that are accurate to 8 significant decimal digits. 

Exceptions to this requirement are documented in the "Comments" section of the 
appropriate runtime library routine descriptions (Chapter 6.3). 

6.2.9 Usage Restrictions 

Several runtime library routines are not currently used by PASS or BFS FSW. 
Therefore, SSCR 11053 (Restrict Runtime Library Use) was written to require the 
compiler to prohibit access by the user to these routines. A mechanism for prohibiting 
access shall be implemented so that a new compiler release is not required should the 
set of supported routines change. 

An asterisk (*) in the VERIFIED column indicates a routine that has been verified but its 
usage is still restricted by the compiler with an XS3 warning message. The routine will 
be unrestricted in a future compiler release. 

Some of the routines are secondary entry points within another routine. These are 
identifiable in the table below by giving the primary entry point's name in the "Alias Of" 
column. 

Since June 1989, the RTL routines identified as Unverified have not been audited for 
flight issues. Therefore, if these routines are ever used by the FSW, they should be 
audited to prevent possible FSW execution errors. 
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MEMBER NAME 


ALIAS OF 


VERIFIED 


ACOS 




YES 


ACOSH 




NO 


ASIN 


ACOS 


YES 


ASINH 




NO 


ATAN 


EATAN2 


YES 


ATANH 




NO 


BIN 


HIN 


NO 


BOUT 


IOINIT 


NO 


BTOC 




NO 


CAS 


CASV 


YES 


CASP 


CASPV 


NO 


CASPV 




YES 


CASR 


CASRV 


YES 


CASRP 


CASRPV 


NO 


CASRPV 




NO 


CASRV 




NO 


CASV 




YES 


CAT 


CATV 


NO 


CATV 




YES 


CEIL 


ROUND 


YES 


CIN 




NO 


CINDEX 




NO 


CINP 




NO 


CLJSTV 




NO 


COLUMN 


IOINIT 


NO 


COS 


SNCS 


YES 


COSH 


SINH 


NO 


COUT 


COUTP 


NO 


COUTP 




NO 


CPAS 




YES 


CPASP 




YES 


CPASR 




NO 


CPASRP 




NO 


CPR 




YES 


CPRA 




NO 


CPRC 


CPR 


NO 


CPSLD 


CSLD 


NO 


CPSLDP 


CSLD 


NO 


CPSST 


CSLD 


NO 
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MEMBER NAME 


ALIAS OF 


VERIFIED 


CPSSTP 


CSLD 


NO 


CRJSTV 




NO 


CSHAPQ 




NO 


CSLD 




NO 


CSLDP 


CSLD 


NO 


CSST 


CSLD 


NO 


CSSTP 


CSLD 


NO 


CSTR 




NO 


CSTRUC 




YES 


CTOB 




NO 


CTOD 


CTOE 


NO 


CTOE 




NO 


CTOH 


CTOI 


NO 


CTOI 




NO 


CTOK 


CTOI 


NO 


CTOO 


CTOX 


NO 


CTOX 




NO 


CTRIMV 




NO 


DACOS 




YES 


DACOSH 




NO 


DAS IN 


DACOS 


YES 


DASINH 




NO 


DATAN 


DATAN2 


YES 


DATAN2 




YES 


DATANH 




NO 


DCEIL 


ROUND 


YES 


DCOS 


DSNCS 


YES 


DCOSH 


DSINH 


NO 


DEXP 




YES 


DFLOOR 


ROUND 


YES 


DIN 


HIN 


NO 


DLOG 




YES 


DMAX 




NO 


DMDVAL 




YES 


DMIN 




NO 


DMOD 




YES 


DOUT 


IOINIT 


NO 


DPROD 




NO 


DPWRD 




YES 
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MEMBER NAME 


ALIAS OF 


VERIFIED 


DPWRH 


DPWRI 


YES 


DPWRI 




NO 


DROUND 


ROUND 


YES 


DSIN 


DSNCS 


YES 


DSINH 




NO 


DSLD 




NO 


DSNCS 




YES 


DSQRT 




YES 


DSST 




NO 


DSUM 




NO 


DTAN 




YES 


DTANH 




NO 


DTOC 


ETOC 


NO 


DTOH 


ETOH 


YES 


DTOI 


ROUND 


YES 


DTRUNC 


ROUND 


YES 


EATAN2 




YES 


EIN 


HIN 


NO 


EMAX 




YES 


EMIN 




YES 


EMOD 




YES 


EOUT 


IOINIT 


NO 


EPROD 




NO 


EPWRE 




YES 


EPWRH 


EPWRI 


YES 


EPWRI 




NO 


ESUM 




NO 


ETOC 




NO 


ETOH 




YES 


ETOI 


ROUND 


YES 


EXP 




YES 


FLOOR 


ROUND 


NO 


GTBYTE 




YES 


HIN 




NO 


HMAX 




YES 


HMIN 




YES 


HMOD 


IMOD 


YES 


HOUT 


IOINIT 


NO 


HPROD 




NO 
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MEMBER NAME 


ALIAS OF 


VERIFIED 


HPWRH 


IPWRI 


NO 


HREM 


IREM 


YES 


HSUM 




YES 


HTOC 


ITOC 


YES 


UN 


HIN 


NO 


I MAX 




NO 


IMIN 




NO 


I MOD 




YES 


INTRAP 


IOINIT 


NO 


IOINIT 




NO 


I OUT 


IOINIT 


NO 


I PROD 




NO 


IPWRH 


IPWRI 


NO 


IPWRI 




NO 


IREM 




YES 


I SUM 




NO 


ITOC 




NO 


I TOD 




YES 


ITOE 




YES 


KTOC 




NO 


LINE 


IOINIT 


NO 


LOG 




YES 


MMODNP 




YES 


MMOSNP 




NO 


MM11D3 




YES 


MM11DN 




YES 


MM11S3 




YES 


MM11SN 




NO 


MM12D3 




YES 


MM12DN 




NO 


MM12S3 




NO 


MM12SN 




NO 


MM13D3 




NO 


MM13DN 




NO 


MM13S3 




YES 


MM13SN 




NO 


MM14D3 




YES 


MM14DN 




NO 


MM14S3 




NO 



6-20 



November 2005 



HAL/S Compiler System Specification 



USA003089 
32.0/17.0 



MEMBER NAME 


ALIAS OF 


VERIFIED 


MM14SN 




NO 


MM15DN 




YES 


MM15SN 




NO 


MM17D3 




NO 


MM17DN 


MM17D3 


NO 


MM17S3 




NO 


MM17SN 


MM17S3 


NO 


MM1DNP 




YES 


MM1SNP 




NO 


MM1TNP 




NO 


MM1WNP 




NO 


MM6D3 




YES 


MM6DN 




YES 


MM6S3 




YES 


MM6SN 




NO 


MMRDNP 




NO 


MMRSNP 




NO 


MMWDNP 




NO 


MMWSNP 




NO 


MRODNP 




NO 


MROSNP 




NO 


MR1DNP 




NO 


MR1SNP 




NO 


MR1TNP 




NO 


MR1WNP 




NO 


MSTR 




YES 


MV6D3 




YES 


MV6DN 




YES 


MV6S3 




YES 


MV6SN 




NO 


OTOC 


XTOC 


NO 


OUTER1 


IOINIT 


NO 


PAGE 


IOINIT 


NO 


QSHAPQ 




NO 


RANDG 


RANDOM 


NO 


RANDOM 




NO 


ROUND 




YES 


SIN 


SNCS 


YES 


SINH 




NO 
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MEMBER NAME 


ALIAS OF 


VERIFIED 


SKIP 


IOINIT 


NO 


SNCS 




YES 


SQRT 




YES 


STBYTE 




YES 


TAB 


IOINIT 


NO 


TAN 




YES 


TANH 




NO 


TRUNC 


ROUND 


YES 


VM6D3 




YES 


VM6DN 




YES 


VM6S3 




YES 


VM6SN 




NO 


V06D3 




YES 


V06DN 




YES 


V06S3 




YES 


V06SN 




NO 


VRODN 




NO 


VRODNP 




NO 


VROSN 




NO 


VROSNP 




NO 


VR1DN 




NO 


VR1DNP 




NO 


VR1SN 




YES 


VR1SNP 




NO 


VR1TN 




NO 


VR1TNP 




NO 


VR1WN 




NO 


VR1WNP 




NO 


WODN 




YES 


WODNP 




YES 


WOSN 




YES 


WOSNP 




NO 


W10D3 




YES 


W10DN 


W10D3 


NO 


W10S3 




YES 


W10SN 


W10S3 


NO 


W1D3 




YES 


W1D3P 




YES 


W1DN 




YES 
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MEMBER NAME 


ALIAS OF 


VERIFIED 


W1DNP 


W1D3P 


YES 


W1S3 




YES 


W1S3P 




YES 


W1SN 




YES 


W1SNP 


W1S3P 


NO 


W1T3 




YES 


W1T3P 




YES 


W1TN 




YES 


W1TNP 


W1T3P 


NO 


W1W3 




YES 


W1W3P 




NO 


W1WN 




YES 


W1WNP 


W1W3P 


NO 


W2D3 




YES 


W2DN 




NO 


W2S3 




YES 


W2SN 




NO 


W3D3 




YES 


W3DN 




YES 


W3S3 




YES 


W3SN 




NO 


W4D3 




YES 


W4DN 




YES 


W4S3 




YES 


W4SN 




NO 


W5D3 




YES 


W5DN 




NO 


W5S3 




YES 


W5SN 




NO 


W6D3 




YES 


W6DN 




YES 


W6S3 




YES 


W6SN 




YES 


W7D3 




YES 


W7DN 




NO 


W7S3 




YES 


W7SN 




NO 


W8D3 




NO 


W8DN 


W8D3 


NO 
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MEMBER NAME 


ALIAS OF 


VERIFIED 


W8S3 




YES 


W8SN 


W8S3 


NO 


W9D3 


W10D3 


YES 


W9DN 


W10D3 


NO 


W9S3 




YES 


W9SN 


W10S3 


YES 


VX6D3 




YES 


VX6S3 




YES 


XTOC 




NO 



6.3 Library Routine Descriptions 

This section contains descriptive material for all routines in the HAL/S-FC runtime 
library. The routines have been grouped into seven categories. The routines within 
each category are described in one sub section as follows: 



6.3.1 


Arithmetic 


6.3.2 


Algebraic 


6.3.3 


Vector/Matrix 


6.3.4 


Character 


6.3.5 


Array Functions 


6.3.6 


Miscellaneous 


6.3.7 


Remote Operations 



This documentation is based upon the "load module" as a basic unit. A load module is 
the entity created by a single invocation of the AP-101 linkage editor. It has a primary 
member name and may have up to 16 alias names. The primary and alias names 
indicate entry points to the module. 

For each load module in the runtime library, an LRD form will be found in the 
succeeding sections. The basic LRD form is shown in Figure 6-1 . The circled numbers 
in the figure are explained below. 

® " The boxed area of the form ( © - © below) contains information relating to 
qualities and attributes of the load module apart from any of its entry points. 

Q> - In the upper right portion of every routine or entry point description, the 
name of the primary entry point will be seen. This serves as a quick 
reference aid in locating the documentation for a load module. 

© - Source Member Name - The name of the member in the assembler 
language source PDS of the library. This name is always the same as the 
primary entry point name. 
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Size of Code Area - Each library module contains one code CSECT, 
regardless of the number of entry points. This number is the count of 
halfwords of code that would be used if the module were loaded. A module 
will be loaded if any one of its entry points is referenced. 

. Stack requirement - If a module is not an intrinsic (see +), it will have a 
requirement for runtime stack space. The minimum required will be one 
standard stack frame (18 Hw). The number listed on the form indicates the 
module's total stack requirement. If the module is an intrinsic, zero will be 
indicated. Individual entry points in one module cannot have different stack 
requirements. Therefore, the stack requirement is an attribute of the 
module. 

(D - Data CSECT size - If the module contains a #L CSECT, its size is indicated. 
Otherwise, a zero is indicated. This number shows the number of halfwords 
of data area that will be used if the module is loaded. 

© . Intrinsic/Procedure - The appropriate box is marked. Entry points in a 
module are either all intrinsic or all procedure, hence this is a quality of the 
module. Sector routines are noted here. 

© - Other modules referenced - A list of other load modules referenced in 
EXTRN statements by this load module. If this module is loaded, the 
indicated modules will also be loaded. 

© . Entry point descriptions - Following the aggregate attributes of the module in 
0-7 above, the descriptions of specific entry points follow. 

© - Primary Entry Name - The name of the code CSECT in the module and the 
primary entry for the module in the library load module PDS. 

O - Function - A brief prose description of what this entry point does. 

(jj) - Invoked By - Entry points may be referenced directly from compiler-emitted 
code, from other library modules, or both. The appropriate boxes are 
marked. If the upper box is marked, an example of a HAL/S construct which 
results in reference to the entry point is shown. If the lower box is marked, 
the names of other modules which refer to this entry point are listed. If any 
of the other modules listed here are loaded, this module will also be brought 
in. 

g) - Execution Time - The time, in microseconds, needed to perform this entry 
point's function. These times are obtained from examinations of trace 
listings of simulations of the execution of the particular library routine or 
entry point on Version 11.3 of the GPC simulator in detailed timing mode. 
Times include times for referenced routines unless specifically stated. 
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© - Input Arguments - The data that the entry point receives as input is listed. 
"Type" indicates the nature of the data (integer, scalar, etc.). "Precision", 
where applicable, is generally SP for single precision and DP for double 
precision. "How Passed" indicates the method of communication of the 
data. In the case of DP scalar arguments, this field may indicate the first 
floating point register of an even/odd pair. "Units", when applicable, 
specifies the units presumed for an argument. 

@ - Output Results - The data that is considered the "answer" from the entry 
point. The fields are used in the same way as in i. 

© - Errors Detected - If invocation of this entry point can result in a Send Error 
SVC being executed, the error #, cause, and standard fixup for all such 
errors are indicated. 

@ - Comments - Any special behavior of this entry point or notes to users are 
entered here. 

© - Algorithm - The steps taken by the entry point to produce its results are 
shown. When appropriate, references are made to other entry point 
descriptions for further documentation. 

In addition to the basic LRD form of Figure 6-1 , which documents module attributes and 
the primary entry point, an extension LRD form is used to document additional alias 
entry points within a module. The extension LRD is shown in Figure 6-2. The circled 
numbers are explained below: 

© - The primary entry name of the module is displayed. This is the same name 
w as is displayed in the basic LRD form q to which this extension form is 

appended. 
© - Secondary Entry Name - The name of the secondary entry point being 

documented. 



20) 



The remainder of the extension form is identical to the primary entry point 
description entries© through©, and describe the function and interface to 
this entry. 
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® 



© 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




© 
© 


Sou 
Stac 


rce Member Name: ® Si 


ze of Code Area: 
ita CSECT Size: 


Hw 
Hw 


k Requirement: Hw 6) n? 






Intrinsic © 




Procedure 




© 


Other Library Modules Referenced: 





© ENTRY POINT DESCRIPTIONS 

© Primary Entry Name: 

© Function: 

© Invoked By: 



Compiler emitted code for HAL/S construct of the form: 



Other Library Modules: 
© Execution time (microseconds): 
© Input Arguments: 



lype 



Precision 



© Output Results: 
Type Precision 

© Errors Detected: 
Error # Cause 



How Passed 



How Passed 



Units 



Units 



Fixup 



© Comments: 
© Algorithm: 



Figure 6-1 Basic LRD Form 



6-27 



November 2005 



HAL/S Compiler System Specification 



USA003089 
32.0/17.0 



© Secondary Entry Name. 
© Function: 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 



Other Library Modules 



Input Arguments: 
Type Precision 



How Passed 



Units 



Output Results: 
lype 



Precision 



How Passed 



Units 



Errors Detected: 
Error # 



Cause 



Fixup 



Comments: 
Algorithm: 



Figure 6-2 Extension LRD Form 
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The following table shows the routines which are assigned to each group. The table 
contains a list of primary and secondary entry points with each secondary indented 
under its primary entry. With each primary entry point, basic descriptive information is 
shown along with the sizes of the CSECTs in the module and the module's stack 
requirement. A final entry shows the timing information for the entry point. Secondary 
entry points have only the descriptive information and the timing for the entry. In cases 
where the timing information is too involved to be listed in the space available, the 
notice "See LRD" indicates that the detailed write-up of the module (on an LRD form in 
the proper subsection) should be referenced. In all cases, information in the table is 
taken from the LRDs and further details on the routines' performance can be found in 
those detailed descriptions. 

ARITHMETIC ROUTINES (Section 6.3.1) 



ENTRY 


FUNCTION 


PREC. 
D 


CODE 
20 


DATA 



STACK 
18 


TIME 
41.4 


Paae 


DMDVAL 


MIDVAL(D,D,D) 


6-36 


DMOD 


MOD(D,D) 


D 


152 


4 





74.6 


6-38 


EMOD 


MOD(S,S) 


S 


52 


4 





46.6 


6-40 


IMOD 


MOD(IJ) 




20 


2 





29.4 


6-41 


HMOD 


MOD(H,H) 


H 








29.4 


6-42 


IREM 


REMAINDER(IJ) 




14 


2 





27.0 


6-43 


HREM 


REMAINDER(H.H) 


H 








27.0 


6-44 


ROUND 


ROUND(S) 




84 


2 





39.0 


6-45 


CEIL 


CEILING(S) 










See LRD 


6-46 


DCEIL 


CEILING(D) 










See LRD 


6-47 


DFLOOR 


FLOOR(D) 










See LRD 


6-48 


DROUND 


ROUND(D) 










33.8 


6-49 


DTOI 


D->l 










33.8 


6-50 


DTRUNC 


TRUNCATE(D) 










28.6 


6-51 


ETOI 


S->l 










39.0 


6-52 


FLOOR 


FLOOR(S) 










See LRD 


6-52 


TRUNC 


TRUNCATE(S) 










31.4 


6-53 
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ALGEBRAIC ROUTINES (Sect 


ion 6.3.2) 






ENTRY 


FUNCTION 


PREC. 


CODE 


DATA 


STACK 


TIME 


Paae 


ACOS 


ARCCOS(S) 


S 


102 


2 


24 


See LRD 


6-54 


ASIN 


ARCSIN(S) 


S 








See LRD 


6-55 


ACOSH 


ARCCOSH(S) 


S 


36 


2 


20 


See LRD 


6-57 


ASINH 


ARCSINH(S) 


S 


64 





20 


See LRD 


6-58 


ATANH 


ARCTANH(S) 


S 


58 


2 


18 


See LRD 


6-59 


DACOS 


ARCCOS(D) 


D 


230 


2 


26 


See LRD 


6-60 


DASIN 


ARCSIN(D) 


D 








See LRD 


6-61 


DACOSH 


ARCCOSH(D) 


D 


50 


2 


22 


See LRD 


6-63 


DASINH 


ARCSINH(D) 


D 


94 





22 


See LRD 


6-64 


D ATANH 


ARCTANH(D) 


D 


132 


2 


26 


See LRD 


6-65 


DATAN2 


ARCTAN2(D,D) 


D 


194 


26 


18 


248.4 


6-66 


DATAN 


ARCTAN(D) 


D 








237.3 


6-68 


DEXP 


EXP(D) 


D 


154 


66 


18 


290.5 


6-69 


DLOG 


LOG(D) 


D 


184 


2 


30 


282.2 


6-71 


DPWRD 


D**D 


D 


40 


4 


22 


See LRD 


6-73 


DPWRI 


D**l 


D 


40 


2 


18 


See LRD 


6-74 


DPWRH 


D**H 


D 








See LRD 


6-76 


DSINH 


SINH(D) 


D 


130 


2 


22 


See LRD 


6-77 


DCOSH 


COSH(D) 


D 








422.6 


6-79 


DSNCS 


S**l 


D 


54 


2 


26 


See LRD 


6-80 


DCOS 


COS(D) 


D 








261.8-264.2 


6-83 


DSIN 


SIN(D) 


D 


102 


62 


20 


267.0 


6-84 


DSQRT 


SQRT(D) 


D 


70 


2 


26 


345.2 


6-85 


DTAN 


TAN(D) 


D 


196 


4 


38 


302.2 


6-88 


DTANH 


TANH(D) 


D 


94 





22 


See LRD 


6-91 


EATAN2 


ARCTAN2(S,S) 


S 


132 


10 


18 


120.0 


6-93 


ATAN 


ARCTAN(S) 


S 








116.5 


6-96 


EPWRE 


S**S 


S 


32 


4 


22 


See LRD 


6-97 


EPWRI 


S**l 


S 


38 


2 


18 


See LRD 


6-98 


EPWRH 


S**H 


S 








See LRD 


6-100 


EXP 


EXP(S) 


S 


108 


2 


18 


141.8 


6-101 


IPWRI 


1**1 


1 


46 


2 


18 


See LRD 


6-103 


HPWRH 


H**H 


H 








See LRD 


6-106 


IPWRH 


l**H 


1 








See LRD 


6-105 


LOG 


LOG(S) 


S 


90 


2 


18 


140.5 


6-107 


SINH 


SINH(S) 


S 


80 


2 


18 


See LRD 


6-109 


COSH 


COSH(S) 


s 








228.9 


6-111 


SNCS 


SIN(S),COS(S) 


s 


122 


28 





See LRD 


6-112 


COS 


COS(S) 


s 








122.1-123.1 


6-115 


SIN 


SIN(S) 


s 


70 


30 





123.6-124.5 


6-116 


SORT 


SQRT(S) 


s 


48 


14 





88.3 


6-117 


TAN 


TAN(S) 


s 


112 


4 


20 


164.0 


6-119 


TANH 


TANH(S) 


s 


56 





18 


See LRD 
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VECTOR/MATRIX ROUTINES (Section 6.3.3) 






ENTRY 


FUNCTION 




SIZE 


PREC 


CODE 


: DATA 


STACK 


TIME 




PAGE 


MMODNP 


Scalar to Partitioned Matrix Move 


n,m 


D 


12 








6.8+n(4.0+8.0m) 




6-122 


MMOSNP 


" 




n,m 


S 


10 








6.4+n(4.4+6.4m) 




6-124 


MM1DNP 


Partitioned Matrix Move 




n,m 


D 


18 








10.8+n(5.4+12.2m) 




6-125 


MM1SNP 


" 




n,m 


S 


16 








10.8+n(5.4+9.4m) 




6-127 


MM1TNP 


" 




n,m 


D-S 


16 








10.4+n(5.8+10.6) 




6-129 


MM1WNP 


" 




n,m 


S-D 


18 








13.6+n(5.0+11.0m) 




6-131 


MM6DN 


Matrix Multiply 




(m,n),(n,A) 


D 


42 








22.2+m(1 0.8+^(21 .2+27.n)) 


6-133 


MM6D3 


" 




(3,3),(3,3) 


D 


32 








671.6 




6-134 


MM6SN 


" 




(m,n),(n,>.) 


S 


40 








22.2+m(1 0.8+X(20.2+1 8.0n)) 


6-135 


MM6S3 


" 




(3,3),(3,3) 


S 


24 








409.6 




6-136 


MM11DN 


Matrix Transpose 




n,m 


D 


16 








8.0+m(5.8+12.2n) 




6-137 


MM11D3 


" 




3,3 


D 


22 








93.6 




6-138 


MM11SN 


" 




m,n 


S 


16 








8.4+m(5.8+9.4n) 




6-139 


MM11S3 


" 




3,3 


S 


18 








71.8 




6-140 


MM12DN 


Matrix Determinant 




n,n 


D 


150 





22 


See LRD 




6-141 


MM12D3 


" 




3,3 


D 


44 





18 


229.6 




6-143 


MM12SN 


" 




n,n 


S 


138 





20 


See LRD 




6-144 


MM12S3 


" 




3,3 


S 


26 





18 


116.0 




6-146 


MM13DN 


Matrix Trace 




n,n 


D 


10 








1 2.0+1 0.2n 




6-147 


MM13D3 


" 




3,3 


D 


8 








19.8 




6-148 


MM13SN 


" 




n,n 


S 


8 








8.8+6.2n 




6-149 


MM13S3 


" 




3,3 


S 


4 








9.8 




6-150 


MM14DN 


Matrix Inverse 




n,n 


D 


258 


2 


20 


63.0+1 29.5n+43.0n 2 +65.4n 3 


6-151 


MM14D3 


" 




3,3 


D 


128 


2 


18 


795.4 




6-152 


MM14SN 


" 




n,n 


S 


242 


2 


20 


52.0+39.2n+1 0.5n 2 +54.6n 3 


6-153 


MM14S3 


" 




3,3 


S 


80 


2 


18 


458.8 




6-155 


MM15DN 


Identity Matrix 




n,n 


D 


18 








15.6+5.0n+11.2n 2 




6-156 


MM15SN 


" 




n,n 


S 


14 








10.0+5.2n+9.6n 2 




6-157 


MM17D3 


Matrix to a Power 




3,3 


D 


86 





20 


See LRD 




6-158 


MM17DN 


" 




n,n 


D 








See LRD 




6-159 


MM17S3 


" 




3,3 


S 


78 





20 


See LRD 




6-160 


MM17SN 


" 




n,n 


S 








See LRD 




6-161 


MV6DN 


Matrix times Vector 




(m,n),n 


D 


24 








12.0+m(1 9.3+26. On) 




6-162 


MV6D3 


" 




(3,3), 3 


D 


22 








304.4 




6-163 


MV6SN 


" 




(m,n),n 


S 


18 








11.2+m(11.0+18.4n) 




6-164 


MV6S3 


" 




(3,3), 3 


S 


20 








137.6 




6-165 


VM6DN 


Vector times Matrix 




n,(n,m) 


D 


26 








23.2+m(23.2+27.6n) 




6-166 


VM6D3 


" 




3,(3,3) 


D 


24 








227.8 




6-167 


VM6SN 


" 




n,(n,m) 


S 


22 








12.4+m(1 9.2+1 8.2n) 




6-168 


VM6S3 


" 




3,(3,3) 


S 


16 








141.2 




6-169 


V06DN 


Vector Outer Product 




n,m 


D 


20 








12.8+n(5.8+24.4m) 




6-170 


V06D3 


" 




3,3 


D 


22 








251.0 




6-171 


V06SN 


" 




n,m 


S 


20 








14.2+n(5.8+14.4m) 




6-172 


V06S3 


" 




3,3 


S 


20 








160.6 




6-173 


VVODN 


Scalar to Vector Move 




n 


D 


6 








7.0+5.1 n 




6-174 


VVODNP 


Scalar to Column Vector Move 


n 


D 


6 








7.0+7.2n 




6-175 


VVOSN 


Scalar to Vector Move 




n 


S 


6 








7.0+5. 6n 




6-176 


VVOSNP 


Scalar to Column Vector Move 


n 


S 


6 








7.0+6. On 




6-177 


VV1DN 


Vector Move 




n 


D 


8 








4.2+1 0.2n 




6-178 


VV1D3 


" 




3 


D 


14 








25.2 




6-179 


VV1D3P 


Column Vector Move 




3 


D 


18 








See LRD 




6-180 


VV1DNP 


" 




n 


D 








See LRD 




6-181 



6-31 
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VECTOR/MATRIX ROUTINES (Section 6.3.3) 



ENTRY 


FUNCTION 


SIZE 


PREC 


CODE 


: DATA 


STACK 


TIME 


VV1SN 


Vector Move 


n 


S 


8 








4.2+7.8n 


VV1S3 


" 


3 


S 


8 








16.8 


VV1S3P 


Column Vector Move 


3 


S 


14 








See LRD 


VV1SNP 


" 


n 


S 








See LRD 


VV1TN 


Vector Move 


n 


D-S 


8 








4.2+9. On 


VV1T3 


Vector Move 


3 


D-S 


12 








21.2 


VV1T3P 


Column Vector Move 


3 


D-S 


14 








See LRD 


VV1TNP 


" 


n 


D-S 








See LRD 


VV1WN 


Vector Move 


n 


S-D 


10 








8.4+9. On 


VV1W3 


" 


3 


S-D 


12 








23.8 


VV1W3P 


Column Vector Move 


3 


S-D 


18 








See LRD 


VV1WNP 


" 


n 


S-D 








See LRD 


VV2DN 


Vector Add/Matrix Add 


n 


D 


14 








8.8+20.6n 


VV2D3 


Vector Add 


3 


D 


22 


22 





51.4 


VV2SN 


Vector Add/Matrix Add 


n 


S 


10 








8.2+13.6n 


VV2S3 


Vector Add 


3 


S 


12 








29.6 


VV3DN 


Vector Subtract/Matrix Subtract 


n 


D 


16 








6.0+22.7n 


VV3D3 


Vector Subtract 


3 


D 


24 








55.4 


VV3SN 


Vector Subtract/Matrix Subtract 


n 


S 


10 








8.4+1 3.6n 


VV3S3 


Vector Subtract 


3 


S 


12 








29.6 


VV4DN 


Vector or Matrix Times Scalar 


n 


D 


8 








7.0+23.4n 


VV4D3 


Vector Times Scalar 


3 


D 


18 








68.4 


VV4SN 


Vector or Matrix Times Scalar 


n 


S 


8 








7.0+14.0n 


VV4S3 


Vector Times Scalar 


3 


S 


12 








38.4 


VV5DN 


Vector or Matrix Divided by Scalar n 


D 


16 


2 





37.0+24.2n 


VV5D3 


Vector Divided by Scalar 


3 


D 


26 


2 





98.4 


VV5SN 


Vector or Matrix Divided by Scalar n 


S 


14 


2 





7.2+1 8.0n 


VV5S3 


Vector Divided by Scalar 


3 


S 


18 


2 





50.6 


VV6DN 


Vector Dot Product 


n 


D 


12 








16.4+25.4n 


VV6D3 


" 


3 


D 


16 








71.8 


VV6SN 


" 


n 


S 


12 








15.2+16.8n 


VV6S3 


" 


3 


S 


10 








41.8 


VV7DN 


Vector or Matrix Negate 


n 


D 


8 








7.0+1 1.4n 


VV7D3 


Vector Negate 


3 


D 


18 








32.4 


VV7SN 


Vector or Matrix Negate 


n 


S 


8 








7.0+9. On 


VV7S3 


Vector Negate 


3 


S 


12 








23.4 


VV8D3 


Vector Compare 


3 


D 








See LRD 


VV8DN 


Vector or Matrix Compare 


n 


D 








See LRD 


VV8S3 


Vector Compare 


3 


S 


12 








See LRD 


VV8SN 


Vector or Matrix Compare 


n 


S 








See LRD 


VV9S3 


Vector Magnitude 


3 


D 








168.3 


VV10D3 


Unit Vector 


3 


D 


56 


2 


20 


402.7 


VV9DN 


Vector Magnitude 


n 


D 








226.6+24.4n 


VV9D3 


" 


3 


D 








300.2 


VV10DN 


Unit Vector 


n 


D 








259.7+47.8n 


VV10S3 


Unit Vector 


3 


S 


50 


2 


24 


236.4 


VV9SN 


Vector Magnitude 


n 


S 








118.9+14.0n 


VV10SN 


Unit Vector 


n 


S 








130.6+32.8n 


VX6D3 


Vector Cross Product 


3 


D 


36 








137.6 


VX6S3 


" 


3 


S 


22 








78.0 



PAGE 
6-182 
6-183 
6-184 
6-185 

6-186 
6-187 
6-188 
6-189 

6-190 
6-191 
6-192 
6-193 



-194 
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-199 

6-200 
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6-210 

6-211 

6-212 
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6-214 
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6-217 

6-218 

6-219 
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6-226 
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6-229 
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CHARACTER ROUTINES (Section 


6.3.4) 






ENTRY 


FUNCTION 




CODE 


DATA 


STACK 


TIME 


PAG 

E 

6-232 


CASPV 


Partitioned Assign to VAC 




64 


2 





See LRD 


CASP 


Partitioned Assign 










See LRD 


6-234 


CASV 


Assign to VAC 




28 








29.2(n=0) 
See LRD 


6-235 


CAS 


Assign 










32.0(n=0) 
See LRD 


6-237 


CATV 


Catenate into VAC 




76 








See LRD 


6-238 


CAT 


Catenate into Data 










See LRD 


6-240 


CINDEX 


INDEX Function 




52 





18 


See LRD 


6-241 


CLJSTV 


LJUST 




40 


2 


18 


See LRD 


6-243 


CPAS 


Assign to Partition 




80 


2 


20 


See LRD 


6-245 


CPASP 


Partition Assign to Partition 




16 





146 


See LRD 


6-247 


CPR 


Compare (= or-,=) 




46 








See LRD 


6-248 


CPRC 


Compare (all relations except = 


= and -1=) 










6-250 


CPRA 


Arrayed Compare 




20 





22 


See LRD 


6-251 


CRJSTV 


RJUST 




46 


2 


18 


See LRD 


6-253 


CTRIMV 


TRIM 




94 





18 


See LRD 


6-255 



ARRAY ROUTINES (Section 6.3.5) 



ENTRY 


FUNCTION 


PREC 


CODE 


DATA 


STACK 


TIME 


PAGE 


DMAX 


MAX(DA) 


D 


10 








See LRD 


6-257 


DMIN 


MIN(DA) 


D 


10 








See LRD 


6-258 


DPROD 


PROD(DA) 


D 


14 








See LRD 


6-259 


DSUM 


SUM(DA) 


D 


6 








7.2+1 1.6n 


6-260 


EMAX 


MAX(SA) 


S 


8 








See LRD 


6-261 


EMIN 


MIN(SA) 


S 


8 








See LRD 


6-262 


EPROD 


PROD(SA) 


s 


10 








See LRD 


6-263 


ESUM 


SUM(SA) 


s 


6 








5.2+6.6n6-264 


6-264 


HMAX 


MAX(HA) 


H 


8 








See LRD 


6-265 


HMIN 


MIN(HA) 


H 


8 








See LRD 


6-266 


HPROD 


PROD(HA) 


H 


12 








See LRD 


6-267 


HSUM 


SUM(HA) 


H 


6 








4.4+5.4n 


6-268 


I MAX 


MAX(IA) 


I 


8 








See LRD 


6-269 


IMIN 


MIN(IA) 


I 


8 








See LRD 


6-270 


IPROD 


PROD(IA) 


I 


22 








See LRD 


6-271 


ISUM 


SUM(IA) 


I 


6 








4.4+5.4n 


6-272 
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ENTRY FUNCTION 

BTOC Bit to Character Conversion 

CSHAPQ Shaping Function 

CSLD SUBBIT Load of Character 

CPSLD Partitioned SUBBIT Load of Character 

CPSST Partitioned SUBBIT Store to Character 

CPSLDP Partitioned SUBBIT Load of Partitioned Character 

CPSSTP Partitioned SUBBIT Store to Partitioned Character 

CSLDP SUBBIT Load of Partitioned Character 

CSST SUBBIT Store to Character 

CSSTP SUBBIT Store to Partitioned Character 

CSTRUC Structure Compare 

CTOB Character to Bit Conversion 

CTOE Character to SP Scalar Conversion 

CTOD Character to DP Scalar Conversion 

CTOI Character to DP Integer Conversion 

CTOH Character to SP Integer Conversion 

CTOK Character to Bit Conversion, DEC Radix 

CTOX Character to Bit Conversion, HEX Radix 

CTOO Character to Bit Conversion, OCT Radix 

DSLD SUBBIT Load of DP Scalar 

DSST SUBBIT Store into DP Scalar 

ETOC SP Scalar to Character Conversion 

DTOC DP Scalar to Character Conversion 

ETOH SP Scalar to SP Integer Conversion 

DTOH DP Scalar to SP Integer Conversion 

GTBYTE Character Fetch 

ITOC DP Integer to Character Conversion 

HTOC SP Integer to Character Conversion 

ITOD DP Integer to DP Scalar Conversion 

ITOE DP Integer to SP Scalar Conversion 

KTOC Bit to Character Conversion, DEC Radix 

MSTRUC Structure Move 

QSHAPQ Shaping Functions 

RANDOM Random Number Generator, Uniform Dist. 

RANDG Random Number Generator, Gaussian Dist. 

STBYTE Character Store 

XTOC Bit to Character Conversion, HEX Radix 

OTOC Bit to Character Conversion, OCT Radix 



IES (Section 


6.3.6) 






CODE 


DATA 


STACK TIME 


PAGE 


28 








161.0(16 bits) 


6-273 


40 


4 


18 


See LRD 


6-274 


246 


4 


22 


See LRD 
71.8 
114.4 
See LRD 
See LRD 
See LRD 
See LRD 
See LRD 


6-276 
6-277 
6-279 
6-278 
6-281 
6-282 
6-283 
6-284 


12 








5.4+1 0.4n 


6-285 


32 


2 


18 


See LRD 


6-286 


287 


2 


30 


See LRD 
See LRD 


6-288 
6-291 


104 


2 


20 


See LRD 
See LRD 
See LRD 


6-292 
6-294 
6-295 


58 


4 


18 


See LRD 
See LRD 


6-296 
6-298 


22 


2 


18 


36.5 


6-299 


54 


2 


18 


64.6 


6-300 


278 


64 


20 


336.9 
602.5 


6-301 
6-303 


14 








15.4 
17.4 


6-304 
6-306 


14 








See LRD 


6-307 


104 





28 


254.6 
189.6 


6-308 
6-309 


20 








15.6 


6-310 


6 








12.0 


6-311 


70 








262.5(16 bits) 


6-312 


8 








4.2+9.4n 


- 


74 





18 


42.6+31 .8n 


6-314 


46 


2 


18 


54.4 
575.8 


6-316 
6-317 


22 








See LRD 


6-318 


68 








See LRD 
See LRD 


6-319 
6-321 
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REMOTE ROUTINES (Section 


6.3.7) 




ENTRY 


FUNCTION 




CODE 


DATA 


STACK 




TIME PAGE 




A. CHARACTER ROUTINES 


















CASRPV 


Partitioned Assign to VAC 


86 


2 




22 




See LRD 


6-323 


CASRP 


Partition Assign 














See LRD 


6-325 


CASRV 


Assign to VAC 




36 







18 




See LRD 


6-326 


CASR 


Assign 














See LRD 


6-327 


CPASR 


Assign to Partition 




132 


2 




24 




See LRD 


6-328 


CPASRP 


Partition Assign to Partition 


16 







146 




See LRD 


6-330 


B. STRUCTURE ROUTINES 


















CSTR 


Structure Compare 




18 







18 




See LRD 


6-332 


MSTR 


Structure Move 




10 







18 




See LRD 


6-343 


C. VECTOR AND MATRIX ROUTINES 
















MRODNP 


Scalar to Partitioned Matrix Move 


n,m 


D 


16 





20 


22.8+n(5.6+9.8m) 


6-333 


MROSNP 


" 




n,m 


S 


16 





20 


22.8+n(5.6+8.6m) 


6-334 


MR1DNP 


Partitioned Matrix Move 




n,m 


D 


22 





20 


28.4+n(8.2+15.0m) 


6-336 


MR1SNP 


" 




n,m 


S 


22 





22 


28.4+n(8.2+12.6m) 


6-338 


MR1TNP 


" 




n,m 


D-S 


24 





22 


31.2+n(7.6+13.8m) 


6-340 


MR1WNP 


" 




n,m 


S-D 


24 





22 


32.8+n(8.2+15.8m) 


6-342 


VRODN 


Scalar to Vector Move 




n 


D 


6 





18 


16.4+9.2n 


6-344 


VRODNP 


Scalar to Column Vector Move 


n 


D 


10 





18 


21.2+10.0n 


6-345 


VROSN 


Scalar to Vector Move 




n 


S 


6 





18 


16.4+8. On 


6-346 


VROSNP 


Scalar to Column Vector Move 


n 


S 


10 





18 


21.2+8.8n 


6-347 


VR1DN 


Vector Move 




n 


D 


8 





18 


1 6.4+1 5.0n 


6-348 


VR1DNP 


Column Vector Move 




n 


D 


20 





18 


See LRD 


6-349 


VR1SN 


Vector Move 




n 


S 


8 





18 


1 6.4+1 2.6n 


6-350 


VR1SNP 


Column Vector Move 




n 


S 


20 





18 


See LRD 


6-351 


VR1TN 


Vector Move 




n 


D-S 


8 





18 


1 6.4+1 3.8n 


6-352 


VR1TNP 


Column Vector Move 




n 


D-S 


20 





18 


See LRD 


6-353 


VR1WN 


Vector Move 




n 


S-D 


10 





18 


20.6+1 3.8n 


6-354 


VR1WNP 


Column Vector Move 




n 


S-D 


22 





18 


See LRD 


6-355 
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6.3.1 Arithmetic Routine Descriptions 

This subsection presents the detailed descriptions of a class of routines generally 
denoted as "Arithmetic". Appendix C of the HAL/S Language Specification contains a 
list of HAL/S functions which are implemented by the routines described here. 









DMDVAL 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: DMDVAL 


Size of Code Area 


84 


Hw 


Stack Requirement: 18 Hw 


Data CSECT Size: 





Hw 


Intrinsic 


x Procedure 






Other Library Modules Referenced: 


None 







ENTRY POINT DESCRIPTIONS 
Primary Entry Name: DMDVAL 

Function: Finds mid value of three double precision scalar arguments. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

MIDVAL (A,B, C) , where A, B, C are double precision 
scalars . 



X 



Other Library Modules: 



Execution Time (microseconds): 



Input Arguments 








Type 


Precision 


How Passed 


Units 


Scalar(A) 


DP 


F0 


- 


Scalar(B) 


DP 


F2 


- 


Scalar(C) 


DP 


F4 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Scalar 


DP 


F0 


- 


Errors Detected: 








Error # 


Cause 


Fixuo 





None 
Comments: 
Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 
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Algorithm: 



IF A<=B THEN DO; 

IF A =B THEN RETURN A; 
IF B <=C THEN RETURN B ; 
ELSE IF A <=C THEN RETURN C; 
ELSE RETURN A; 
END; 
ELSE DO; 

IF C <=B THEN RETURN B; 
ELSE IF C < A THEN RETURN C; 
ELSE RETURN A; 
END; 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: DMOD Size of Code Area 152 

Stack Requirement: Hw Data CSECT Size: 4 

Intrinsic I (Procedure 



DMOD 



Hw 



Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: DMOD 

Function: Calclates HAL/S MOD function in double precision. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 



X 



MOD(A,B) , where at least one of A or B is a double 
precision scalar. 

Other Library Modules: 



Execution Time (microseconds): 

Input Arguments: 
Type 
Scalar(A) 
Scalar(B) 

Output Results: 
Type 
Scalar 

Errors Detected: 
Error # 
19 
33 

Comments: 

The precision of the result of the MOD(A,B) function is limited by the precision of 
the inputs A and B. Specifically, the EMOD output will be precise to six significant 
digits of the input of greatest magnitude. Similarly, the DMOD output will be 
precise to eight significant digits of the input of greatest magnitude. A fixup value of 
zero is returned by MOD(A,B) if: 

1 . It is a positive operand case and the result computed for MOD(A,B) is greater than 
|B|, or 

2. It is a negative operand case and the result computed for MOD(A,B) is less than 
zero. 



Precision 


How Passed 


Units 


DP 


F0/F1 


- 


DP 


F2/F3 


- 


Precision 


How Passed 


Units 


DP 


F0/F1 


- 


Cause 




Fixup 


MOD domain error when B=0, A < 


Return 


|A/B| approx. 


>16 14 


Return 
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Warning: 

The DMOD routine uses the formula MOD(A,B)=A-|B|*FLOOR(A/|B|). 

The operation A-|B| * FLOOR(A/|B|) may cause an underflow when 
H'8D1 0000000000000'<A<H0D'1 0000000000000' 
(-2.43086534291 45086E-63<A<2.43086534291 45086E-63). 
An exponent overflow can also be generated during the divide operation 
(I2DEDR macro for DMOD, DER for EMOD) when A and B differ in order of 
magnitude as described in the AP1 01 POO for the operation A/|B|. For overflow, A 
would be greater than B by approximately half of the floating point exponential 
range. 

Registers Unsafe Across Call: R4,F0,F1 ,F2,F3,F4,F5,F6,F7. 

Algorithm: 

First check for mod domain error (B=0 and A < 0) and signal an error 1 9 and return 
a fixup value of zero. If B< >0, then take |B|. For positive A values, MOD(A,B) is 
computed as A-(|B|*FLOOR(A/|B|)). For positive A values, a pre-divide check is 
performed, and if A < |B| then return A as the answer. For negative A values, 
MOD(A,B) is computed as A+(|B|*FLOOR(|A|/|B|)). For negative A values, a pre- 
divide check is performed, and if |A|<|B| then return A+|B| as the answer. For both 
positive and negative A's, the FLOOR function is accomplished by adding and then 
subtracting a value BIGNUM (X'4E80000000000000' for DMOD and 
X'4680000000000000' for EMOD), which causes all the fractional part of the 
quotient to be lost, leaving only the integer portion. The positive and negative A 
parts of the algorithm then converge for pre-exit validation of the result. If the 
answer is negative, then add in one more |B|. If the answer is still negative, then 
log a GPC error and return a fixup value of zero. If the answer is positive or zero, 
check that it is less than |B|. If not, subtract one |B| from the answer and check it 
again. If the answer is still greater than or equal to |B| then log a GPC error and 
return a fixup value of zero. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: EMOD Size of Code Area 52 

Stack Requirement: Hw Data CSECT Size: 4 

Intrinsic I (Procedure 



EMOD 

Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: EMOD 

Function: Calculates HAL/S MOD function in single precision. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

MOD(A,B), where A and B are single 
scalars . 

Other Library Modules: 



X 



precision 



Execution Time (microseconds): 
Input Arguments: 



Type 

Scalar(A) 

Scalar(B) 

Output Results: 
Type 
Scalar 



Precision 



How Passed 



Units 



SP 


F0 


SP 


F2 


Precision 


How Passed 



Units 



SP 



F0 



Fixup 



Errors Detected: 
Error # Cause 

1 9 MOD domain error when B=0,A<0 Return 

33 |A/B|approx.>16 6 Return 

Comments: 
See DMOD. 
Registers Unsafe Across Call: R4,F0,F2,F4,F5. 

Algorithm: 

See DMOD. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: IMOD Size of Code Area 152 

Stack Requirement: Hw Data CSECT Size: 4 

Intrinsic I (Procedure 



IMOD 



Hw 



Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: IMOD 

Function: Calculates HAL/S MOD(A,B) in double precision. 

Invoked By: 
X] Compiler emitted code for HAL/S construct of the form: 

MOD(A,B), where A and B are both integers and at least 
A or B is a fullword integer value. 

Q] Other Library Modules: 

Execution Time (microseconds): 29.4 

Input Arguments: 
Type 
Integer(A) 
Integer(B) 

Output Results: 
Type 
Integer 

Errors Detected: 
Error # 



Precision 

DP 

DP 



Precision 
DP 



How Passed 

R5 

R6 



How Passed 
R5 



Units 



Units 



Cause 

MOD not defined for A<0 and B=0 



Fixup 
Return A 



19 

Comments: 

MOD(A,B) is defined to be the smallest non-negative value that can be reached by 
starting from A and adding or subtracting |B| as often as is necessary. 

Registers Unsafe Across Call: R2,R4,R5,R6,R7. 
Algorithm: 



If B = 



If B*0 



If A>0 Return A 

If A<0 Error #1 9 generated 



MOD(A,B) = A-[(|B|(A/|B|)] 

If this result < 0, then add |B| to this to make it positive. 
For all values of A and B, the result is always non-negative. 
For A>0, MOD = REMAINDER(A,B). These equations are used because AP-101 
division (scalar or integer) does not yield a remainder. 
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IMOD 
Secondary Entry Name: HMOD 
Function: Performs HAL/S MOD(A,B) where both A and B are single precision integers. 

Invoked By: 

X_ Compiler emitted code for HAL/S construct of the form: 

MOD(A,B) , where A and B are both integers and at least 
A or B is a fullword integer value. 

Q Other Library Modules: 



Execution Time (microseconds): 29.4 


Input Arguments: 
Type 

Integer(A) 
Integer(B) 


Precision 

SP 

SP 


How Passed Units 

R5 

R6 


Output Results: 
Type 
Integer 


Precision 
SP 


How Passed Units 
R5 


Errors Detected: 
Error # 


Cause 


Fixup 



Same as IMOD 

Comments: 

MOD(A,B) is defined to be the smallest non-negative value that can be reached by 
starting from A and adding or subtracting |B| as often as is necessary. 

Registers Unsafe Across Call: R2,R4,R5,R6,R7. 

Algorithm: 

Same as IMOD 
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IREM 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: IREM Size of Code Area 1 6 


Hw 


Stack Requirement: Hw Data CSECT Size: 2 


Hw 


x Intrinsic Procedure 




Other Library Modules Referenced: None 





ENTRY POINT DESCRIPTIONS 

Primary Entry Name: IREM 

Function: Calculates integer remainder of (A,B)- 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

MOD(A,B), where A and B are both single precision 
integers . 



X 



Other Library Modules: 



Execution Time (microseconds): 27.0 
Input Arguments: 



Precision 

DP] 

} one can be SP 
DPj 

Precision 
DP 

Cause 

Zero denominator (B) Return A 



How Passed Units 
R5 

R6 



Type 
Integer(A) 

Integer(B) 

Output Results: 
Type 
Integer 

Errors Detected: 
Error # 
16 

Comments: 

Registers Unsafe Across Call: R2,R4,R5,R6,R7. 

Algorithm: 

If B=0, then error. For B * 0, the remainder is found using REMAINDER(A,B) = 
[A - B*(A/B)]. The result can be negative. 



How Passed Units 
R5 



Fixup 



6-43 



November 2005 



HAL/S Compiler System Specification USA003089 

32.0/17.0 

IREM 
Secondary Entry Name: HREM 
Function: Calculates integer remainder of A/B. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

REMAINDER (A, B) , where A and B are both single 

precision integers. 

Other Library Modules: 



Execution Time (microseconds): 27.0 
Input Arguments: 



Type Precision 
Integer(A) SP 
Integer(B) SP 


How Passed 

R5 

R6 


Units 


Output Results: 
Tvpe Precision 
Integer SP 


How Passed 
R5 


Units 


Errors Detected: 
Error # Cause 
16 Zero denominator (B) 


Fixup 
Return A 


Comments: 

Registers Unsafe Across Cal 


I: R2,R4,R5,R6,R7. 


Algorithm: 

Same as IREM. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: ROUND Size of Code Area 80 

Stack Requirement: 0_ 

Intrinsic 



ROUND 



Hw 



Hw 
Sector - 



Data CSECT Size: 
Procedure 



Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: ROUND 

Function: Converts single precision scalar to fullword integer. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

ROUND (X), where X is a single precision scalar. 
Other Library Modules: 



X 



X 



QSHAPQ 

Execution Time (microseconds): 39.0 

Input Arguments: 



Type Precision 


How Passed 


Units 


Scalar SP 


F0 


- 


Output Results: 






Type Precision 


How Passed 


Units 


Integer DP 


R5 


- 


Errors Detected: 






Error # Cause 




Fixuc 



15 



Scalar too large for integer Return either: 
conversion Posmax = X7FFFFFFF' or 

Negmax = X'80000000' 



Comments: 

See DROUND. 

Registers Unsafe Across Call: R4,R5,F0,F1. 

Algorithm: 

Second register of a floating point register pair is cleared then routine merges into 
the double precision float-to- fix routine, DROUND. 
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ROUND 
Secondary Entry Name: CEIL 
Function: Performs HAL/S CEILING function: Returns smallest integer > the argument. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

CEILING (X), where X is a single precision scalar. 
Other Library Modules: 



Execution Time (microseconds): 31 .4 if X > 

40.8 if X < 

Input Arguments: 

Type Precision How Passed Units 

Scalar SP F0 

Output Results: 
Type Precision How Passed Units 

Integer DP R5 

Errors Detected: 
Error # Cause Fixup 

15 Scalar too large for integer Return either: 

conversion Posmax = X7FFFFFFF or 

Negmax = X80000000' 

Comments: 
See DCEIL 

Registers Unsafe Across Call: R4,R5,F0,F1. 
An invalid result of is returned for arguments between < N < 1 .0 X 16 E-14. 

Algorithm: 

Second register of floating point register pair is cleared, then routine merges with 
DCEIL. 
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ROUND 
Secondary Entry Name: DCEIL 

Function: Performs HAL/S CEILING function: Finds the smallest integer > the 
argument. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

CEILING (X), where X is a double precision scalar. 
Other Library Modules: 



Execution Time (microseconds): 26.6 if X > 

36.0 if X < 

Input Arguments: 

Type Precision How Passed Units 

Scalar DP 

Output Results: 
Type Precision 

Integer DP 

Errors Detected: 
Error # Cause 

15 Scalar too large for integer Return either: 

conversion Posmax = X7FFFFFFF' or 

Negmax = X'80000000' 

Comments: 

Negative args become less negative after CEILING, positive args more positive. 

-3 a -2 -1 1 (3 2 3 



F0, F1 


- 


How Passed 


Units 


R5 


- 




Fixup 



CEILING(a) CEILING(p) 

Registers Unsafe Across Call: R4,R5,F0,F1. 
An invalid result of is returned for arguments between < N < 1 .0 X 16 E-14. 

Algorithm: 

Same as DROUND, except positive arguments are rounded up by almost 1. 
Negative arguments are not rounded. 
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ROUND 
Secondary Entry Name: DFLOOR 
Function: Performs HAL/S FLOOR function: Finds the largest integer < the argument. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

FLOOR (X), where X is a double precision scalar. 
Other Library Modules: 



Execution Time (microseconds): 27.0 if X > 

36.4 if X < 

Input Arguments: 

Type Precision How Passed Units 

Scalar DP 

Output Results: 
Type Precision 

Integer DP 

Errors Detected: 
Error # Cause 

15 Scalar too large for integer Return either: 

conversion Posmax = X7FFFFFFF' or 

Negmax = X'80000000' 

Comments: 

Negative arguments become more negative, positive arguments less positive. 
-3 a -2 -1 1 2 (3 3 



F0, F1 


- 


How Passed 


Units 


R5 


- 




Fixup 



FLOOR(a) FLOOR(p) 

Registers Unsafe Across Call: R4,R5,F0,F1. 

An invalid result of is returned from the DFLOOR function for arguments between 

-1.0X16E-14<N<0. 

Algorithm: 

Same as DROUND, except argument is rounded down by almost 1 
(X'40FFFFFFFFFFFFFF') if negative. Positive arguments are not rounded. 
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ROUND 



Secondary Entry Name: DROUND 

Function: Converts double precision scalar to fullword integer. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

ROUND (X), where X is a double precision scalar. 
Other Library Modules: 



X 



Execution Time (microseconds): 33.8 

Input Arguments: 
Type Precision 

Scalar DP 



How Passed Units 



Output Results: 
Type 
Integer 



Precision 
DP 



F0, F1 



How Passed Units 
R5 



Errors Detected: 
Error # Cause 



15 



Scalar too large for integer 



conversion 



Fixup 

Return either: 

Posmax = X7FFFFFFF or 

Negmax = X'80000000' 



Comments: 

Negative arguments are converted to the next more negative integer value; positive 
args to the next greater positive integer value, unless the original argument is an 
integer (argument rounded up or down by not quite 1 before truncating decimal 
places). Values such as xx.5 are rounded down to xx.O and values such as -xx.5 
are rounded up to -xx.O. 
Registers Unsafe Across Call: R4,R5,F0,F1. 

Algorithm: 

The argument is checked for negative/not negative. If the argument is negative, 
the value is rounded down by subtracting just under 1/2. The resulting value is then 
checked against MAXNEG(X'C880000000FFFFFF'). If within the legal range, the 
integer part of the scalar is shifted to the second register of the floating point 
register pair. This remaining integer value is then put in a fixed point register and 
complemented to leave it in the correct two's complement fixed point form. If the 
argument is not negative, the value is rounded up by adding almost 1/2, and the 
resulting value is compared to MAXPOS(X'487FFFFFFFFFFFFF'). Then, as with 
negative values, it is shifted to leave the integer part in floating point format and 
loaded into a fixed point register. 
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Secondary Entry Name: DTP I 

Function: Converts double precision scalar to fullword integer. 

Invoked By: 



ROUND 



X | Compiler emitted code for HAL/S construct of the form: 

I = D; where I is a double precision integer, and D is a 
double precision scalar. 

Other Library Modules: 



Execution Time (microseconds): 33.8 

Input Arguments: 

Type Precision How Passed Units 

Scalar DP F0 

Output Results: 
Type Precision How Passed Units 

Integer DP R5 

Errors Detected: 
Error # Cause Fixup 

15 Scalar too large for integer Return either: 

conversion Posmax = X7FFFFFFF or 

Negmax = X'80000000' 

Comments: 

DTOI is identical entry point to DROUND. 
Registers Unsafe Across Call: R4,R5,F0,F1. 

Algorithm: 

Algorithm: Same as DROUND. 
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ROUND 
Secondary Entry Name: DTRUNC 

Function: Performs HAL/S TRUNCATE function: Finds the signed value 
that is the largest integer < absolute value of the argument. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

TRUNCATE (X) , where X is a double precision 
scalar . 

Other Library Modules: 



Execution Time (microseconds): 28.6 

Input Arguments: 

Type Precision How Passed Units 

Scalar DP F0, F1 

Output Results: 
Type Precision How Passed Units 

Integer DP R5 

Errors Detected: 
Error # Cause Fixup 

15 Scalar too large for integer Return either: 

conversion Posmax: X7FFFFFFF' 

or 
Negmax: X'80000000' 

Comments: 

After truncation, negative and positive arguments are closer to 0; no rounding done 
before truncation. 

-3 a -2 -1 1 2 (3 3 



TRUNCATE(a) TRUNCATE(p) 



Registers Unsafe Across Call: R4,R5,F0,F1. 

Algorithm: 

Same as DROUND, except argument is not rounded up or down. 
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ROUND 



Secondary Entry Name: ETOI 

Function: Converts single precision scalar to fullword integer. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

I=S where I is a double precision integer, S 
single precision scalar. 

Other Library Modules: 



X 



is a 



Execution Time (microseconds): 39.0 

Input Arguments: 
Type Precision 

Scalar SP 



How Passed 



Output Results: 
Type Precision 

Integer DP 

Errors Detected: 
Error # Cause 



15 



Scalar too 
conversion 



F0 



How Passed 
R5 



large for integer 



Units 



Units 



Fixup 

Return either: 

Posmax =X'7FFFFFFF' or 

Negmax = X'80000000' 



Comments: 

ETOI is identical entry point to ROUND; also see DTOI. 

Registers Unsafe Across Call: R4,R5,F0,F1. 
Algorithm: 

Same as ROUND. 

Secondary Entry Name: FLOOR 

Function: Performs HAL/S FLOOR function: Returns largest integer < the argument. 
Note: The compiler now uses inline code for the FLOOR function instead of calling 
this routine. 

The compiler uses the convert to fixed point instruction which is valid only in the 
range: 

.7FFFFF X 1 6E04 (1 6) > N > -.800000 X 1 6E04 (16) 
~ 32767.99 (1 0) > N > -32768(1 0) 

A convert overflow will occur for FLOOR arguments outside this range. 
An invalid result is returned from the FLOOR function for arguments between -16 
and which have a fractional portion whose absolute value is smaller than 1/16**4 
(I.E. - (X + 1/16**4) < N <-X where X is an integer between and 15 inclusive). 
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ROUND 
Secondary Entry Name: TRUNC 

Function: Performs HAL/S TRUNCATE function: Returns signed value that is 
the largest integer < absolute value of the argument. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

TRUNCATE (X) , where X is a single precision scalar. 
Other Library Modules: 



Execution Time (microseconds): 31.4 

Input Arguments: 

Type Precision How Passed Units 

Scalar SP F0 

Output Results: 
Type Precision How Passed Units 

Integer DP R5 

Errors Detected: 
Error # Cause Fixup 

15 Scalar too large for integer Return either: 

conversion Posmax =X'7FFFFFFF' or 

Negmax =X'80000000' 

Comments: 

See DTRUNC 

Registers Unsafe Across Call: R4,R5,F0,F1. 

Algorithm: 

Second register of floating point register pair is cleared, then routine merges with 
DTRUNC. 
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6.3.2 Algebraic Routine Descriptions 

This subsection presents the detailed descriptions of "Algebraic" routines as defined in 
Appendix C of the HAL/S Language Specification. 



ACOS 

HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: ACOS Size of Code Area 116 Hw 

Stack Requirement: 24 Hw Data CSECT Size: 
Intrinsic 



Hw 



x 



Procedure 



Other Library Modules Referenced: SORT 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: ACOS 

Function: Computes arc-cosine(x) of scalar argument. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

ARCCOS (X) , where X is a single precision scalar. 
| | Other Library Modules: 

Execution Time (microseconds): 0.5 < |X| < 1 : 225.5 

2.441 406252 x 1 0" 4 < |X| < 0.5: 1 32.7 
|X| < 2.441 406252 x 1 0" 4 : 71 .5 



Input Arguments: 
Type Precision 

Scalar SP 

Output Results: 
Type Precision 

Scalar SP 

Errors Detected: 
Error # Cause 



How Passed 
F0 

How Passed 
F0 



Units 



Units 
Radians 



Fixup 



10 



Argument outside range-1 < x < 1 Return n for x<-1 

Return for x>1 



Comments: 

Registers Unsafe Across Call: F0,F1,F2,F3,F4. 

Algorithm: 

ACOS(X) is computed as tt/2 - ARCSIN(X). 
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ACQS 



Secondary Entry Name: ASIN 

Function: Computes arc-sine of scalar argument. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

ARCSIN(X), where X is a single precision 
scalar . 

| | Other Library Modules: 
Execution Time (microseconds): 



Input Arguments: 
Type Precision 

Scalar SP 

Output Results: 
Type Precision 

Scalar SP 

Errors Detected: 
Error # Cause 



How Passed Units 
F0 



How Passed Units 



F0 



Radians 



Fixup 



10 



Argument outside range -1 < x < 1 Return-7t/2 if x<-1 

Return n/2 if x>1 



Comments: 

For a very small number of input arguments, the ASIN routine will return results that 
are accurate to 5 significant decimal digits (instead of the 6 significant decimal 
digits that are generally required for single precision routines). For most of the 
range of the ASIN routine, results are returned that are accurate to 6 significant 
decimal digits. 
Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

The value of X is restricted to < X < 1 by using the identity arcsin(-X) = -arcsin(X), 
and further to < |X| < 0.5 



K 



1-x 



by the identity arcsin (X)= - - 2*arcsin 



For < |X| < 0.5, Z = |X|, and for 0.5 < |X| < 1 .0, Z = 



1-x 
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Arcsin(Z) is then computed as a truncated continued fraction in Z 2 > multiplied by W 
(where W = Z for 0.5 < |X| < 1.0 and W = 2Z for < |X| < 0.5). The form of the 
approximation is: 

W*d/z 2 
arcsin (X) « W + 1 



c 1+ Z 2 + 



d 



2 



c 2 +Z 



2 



where the values of the constants are: 

c 1 = XC13B446A = -3.7042025 
c 2 = X , C11DB034' = -1.8555182 
d 1 = X'C08143C7' = -0.5049404 
d 2 = X'C11406BF'= -1.2516474 

For arguments |X|<2.4414063 * 10 4 (16 3 ), arcsin(X) is computed as arcsin(X) = X. 



6-56 November 2005 



HAL/S Compiler System Specification 



USA003089 
32.0/17.0 



ACOSH 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: ACOSH Size of Code Area 36 Hw 

Stack Requirement: 20 Hw Data CSECT Size: 2 

Intrinsic I x I Procedure 



Hw 



Other Library Modules Referenced: LOG.SQRT 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: ACOSH 

Function: Computes hyperbolic arc-cosine in single precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

ARCCOSH (x) , where x is a single precision scalar. 
Other Library Modules: 



Execution Time (microseconds): 

Input Arguments: 
Type Precision 

Scalar SP 

Output Results: 
Type Precision 



How Passed Units 
FO 



How Passed Units 



Scalar SP 

Errors Detected: 
Error # Cause 
59 ARG < 1 


FO 

Fixup 
Return 



Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Using the external SORT and LOG functions: 

arccosh(x)=1n (x + Vx 2 + 1) 
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ASINH 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: ASINH Size of Code Area 64 Hw 



Stack Requirement: 20 Hw 
Intrinsic 



Data CSECT Size: Hw 
x I Procedure 



Other Library Modules Referenced: LOG.SQRT 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: ASINH 

Function: Computes hyperbolic arc-sine in single precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

ARCSINH(X), where X is a single precision scalar. 
Other Library Modules: 

Execution Time |X|<8.876589E-4: 31.5 

(microseconds): 

8.8726589E-4<|X|<2.1632850E-1 : 85.4 
2.1632850E-1<|X|<1 .677721 6E+7: 314.1 
|X|>1 .677721 6E+7: 141.2 

How Passed Units 



Input Arguments: 
Type Precision 

Scalar SP 

Output Results: 
Type Precision 



FO 



How Passed Units 



Scalar SP 


FO 


Errors Detected: 




Error # Cause 


Fixup 



None 

Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Using the external SORT and LOG routines, 
For |X|<8.8726589E-4, arcsinh(X) = X 

For 8.8726589E-4<X|<2.1632850E-1, arcsinh(X)=X- -X 3 + — X 5 

- '- v ' 6 40 

For 2.1 632850E-1 <|X|<1 .677721 6E+7, arcsinh(X)=1 n (x + V^TT) 
For |X|>1 .677721 6E+7, arcsinh(X) = 1n(X) + 1n(2) 
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ATANH 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: ATANH Size of Code Area 58 Hw 

Stack Requirement: 18 Hw Data CSECT Size: 2 Hw 
Intrinsic I x I Procedure 



Other Library Modules Referenced: LOG 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: ATANH 

Function: Computes hyperbolic arc-tangent in single precision. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

ATANH (X), where X is a single precision scalar 
Other Library Modules: 



X 



Execution Time (microseconds): |X|<4.113892E-5: 33.9 

4.1 1 3892E-5^X|<1 .875E-1 : 85.7 
1.875E-1<|X|: 228.2 



How Passed 
F0 

How Passed 
F0 



Units 



Units 



Fixup 



Input Arguments: 
Type Precision 

Scalar SP 

Output Results: 
Type Precision 

Scalar SP 

Errors Detected: 
Error # Cause 

60 Argument outside range:-1<X<1 Return 

Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Using the external LOG function, 
For |X|<4.1138977E-5, arctanh(X) = X 

For 4.1 1 38977E-5<|X|<1 .875E-1 , arctanh(X) = X + g X 3 + 5 X 5 



For 1 .875E-1 <|X|<1 , arctanh(X) = 



_ 2 



1, ri+x^ 

An 



1-X 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: DACOS Size of Code Area 230 

Stack Requirement: 26 Hw Data CSECT Size: 2 
Intrinsic I x I Procedure 



DACOS 



Hw 



Hw 



Other Library Modules Referenced: DSQRT 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: DACOS 

Function: Computes ARCCOS(X) in double precision. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 



X 



ARCCOS (X) , 
scalar . 



where X is a double precision 



Other Library Modules: 

Execution Time (microseconds): |X|<3.7252903E-9 (16 7 ): 89.1 

3.7252903E-9<|X|<0.5: 263.1 



Input Arguments: 
Type Precision 

Scalar DP 

Output Results: 
Type Precision 

Scalar DP 

Errors Detected: 
Error # Cause 



0.5<|X|<1: 460.5 
|X|= 1:79.7 

How Passed Units 
F0 

How Passed Units 



F0 



Radians 



Fixup 



10 



Argument outside range(-1 - epsilon)< X< (1+epsilon) Return n if x<- 
where epsilon=hex'3AFFFFFFF0000000' 1 

(approximately 5.9604644E-08) Return if x>1 



Comments: 

The fixup value will be returned, but an error will not be issued until the argument is 

|X|>1 + epsilon. 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Computed as tt/2 - ARCSIN(X) 
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DACOS 



Secondary Entry Name: DAS IN 

Function: Computes ARCSIN(X) in double precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 




ARCSIN(X) , where 


X is a double precision 


scalar . 


Other Library Modules: 






Execution Time (microseconds): 




Input Arguments: 
Type Precision 
Scalar DP 


How Passed Units 
F0 




Output Results: 
Type Precision 
Scalar DP 


How Passed Units 
F0 Radians 




Errors Detected: 
Error # Cause 
10 Argument outside range(-1 - epsilon)<X< (1 + 


Fixup 
Return-7i/2 if x<-1 



epsilon) where epsilon=hex'3AFFFFFFF0000000' Return jt/2 if x >1 
(approximately 5.96046445E-08) 

Comments: 

The fixup value will be returned, but an error will not be issued until the argument is 
|X| > 1 + epsilon. 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

The value of X is restricted to 0<X<1 by using the identity arcsin(-X) = -arcsin(X), 
and further to 0<X<1/2 



K 



by the identity arcsin (X)= ^ -2*arcsin 



1-x 



1-x 



For 0<|X|<0.5, Z = |X|, and for 0.5<|X|<1 .0, Z= 
Arcsin(Z) is then computed as a truncated continued fraction in Z 2 , multiplied by W. 
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The form of the approximation is: 



arcsin(Z)=W + W*Z ; 



Ci + 



z 2 + c 2 + 



z 2 + c 3 +— 
z 2 + c 4 + 



Z' + C 5 



(where W=Z for 0.5<|X|<1 .0, and W=2Z for 0<|X|<0.5) 
where the values of the constants are: 



C 1 =X'3F180CD96B42A610' 
d 1 = X'C07FE6DD798CBF27' 
C 2 = X'C1470EC5E7C7075C 
d 2 = XC1489A752C6A6B54' 
C 3 = X'C13A5496A02A788D' 
d 3 = XC06B41 1 D9ED01 722' 
C 4 = X'C1 1 BFB2E6EB61 7AA 
d 4 = XBF99119272C87E78' 
C 5 = X'C1 1 323D9C96F1 661 ' 



= .00587162904063511 

=-.49961647241138661 

=-4.44110670602864049 

=-4.53770940160639666 

=-3.64565146031194167 

=-.41896233680025977 

=-1.74882357832528117 

=-.03737027365107758 

=-1.19625261960154476 



For arguments |X|<3.7252903 E-9(16" 7 ), arcsin(X) is computed as arcsin(X)=X. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name: DACOSH Size of Code Area 50 

Stack Requirement: 22 Hw Data CSECT Size: 2 

Intrinsic I x I Procedure 



DACOSH 



Hw 



Hw 



Other Library Modules Referenced: DLOG. DSQRT 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: DACOSH 

Function: Computes hyperbolic arc-cosine in double precision. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

ARCCOSH(X), where X is a double precision scalar. 
Other Library Modules: 



X 



Execution Time (microseconds): 1<X<6.7108864E+7: 403.4 

6.71 08864E+7<X: 332.4 
Input Arguments: 



Type 
Scalar 

Output Results: 
Type 
Scalar 



Precision 
DP 

Precision 
DP 



How Passed Units 
F0 



How Passed 
F0 



Units 



Errors Detected: 
Error # 
59 



Fixup 
Return 



Cause 

Arguments- EPSILON 

Note: The fixup value will be returned but an error will not be issued until 
x<0.9999999403953555 where EPSILON=hex'3AFFFFFFF0000000' 
(approximately 5.96046445E-08). 

Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Using the external DSQRT and DLOG functions, 



For 1 <x<6.71 08864 x 1 7 , arccosh(x)=1 n (x + ^x 2 -1 ) 
For x>6.71 08864 x 1 7 , arccosh(x) = 1 n(x) + 1 n(2) 
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DASINH 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: DASINH Size of Code Area 96 

Stack Requirement: 22 Hw Data CSECT Size: Hw 

Intrinsic I x I Procedure 



Hw 



Other Library Modules Referenced: DLOG. DSQRT 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: DASINH 

Function: Computes hyperbolic arc-sine in double precision. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

ARCSINH(X), where X is a double precision scalar. 
Other Library Modules: 



X 



Execution Time (microseconds): |X|<1.353860E-8: 33.6 

1.353860E-8<|X|<6.25E-2: 185.4 
6.25E-02<|X|<6.7108864E+7: 570.8 
6.71 08864E+7<|X|: 348.2 



Input Arguments 
Type 
Scalar 


Precision 
DP 


How Passed 
F0 


Units 


Output Results: 
Type 
Scalar 


Precision 
DP 


How Passed 
F0 


Units 


Errors Detected: 
Error # 


Cause 


Fixuo 





None 

Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Using the external DSQRT and DLOG functions, 

For |X|<1 .353860E-8, arcsinh(X) = X 

For 1.353860E-8<|X|<6.25E-2, arcsinh(X) = 

945 



X- 



lx 3 +A X 5 

6 40 



15 y7 1 05 y9 



X 1 



336 3456 42240 

For6.25E-2<|X|<6.7108864E+7, arcsinh(X) =1n(X+ Vx 2 -1 ) 
For 6.71 08864E+7<|X|, arcsinh(X) = 1n(X) + 1n(2) 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: DATANH Size of Code Area 132 

Stack Requirement: 
Intrinsic 



DATANH 



Hw 



26 Hw 



Data CSECT Size: 
Procedure 



Hw 



x 



Other Library Modules Referenced: DLOG 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: DATANH 

Function: Computes hyperbolic arc-tangent in double precision. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

ARCTANH(X), where X is a double precision scalar, 
Other Library Modules: 



X 



Execution Time (microseconds): |X|<1.07455946E-8: 42.6 

1.07455946E-8<[X|<6.25E-2: 186.6 
6.25E-2<|X|: 399.0 



Input Arguments: 
Type Precision 

Scalar DP 

Output Results: 
Type Precision 

Scalar DP 



How Passed 
F0 



How Passed 



Units 



Units 



F0 



Fixup 
Return 



Errors Detected: 
Error # Cause 

60 Argument outside range: (-1 - EPSILON)<X<(1 + 

EPSILON) where EPSILON = hex'3AFFFFFFF0000000' 
(approximately 5.96046445E-08) 

Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Save sign of argument X 

X=|X| (force positive, arctanh(-X)= -arctanh(X)) 

If X>1 : Return 0, indicate error 

If X<1 .07455946E-08: Return X 

y3 y5 \x7 \/9 

If 1 .07455946E-08<X<6.250E-02: arctanh(X) = X+ — + — + — + — 

3 5 7 9 

If 6.250E - 02<X: arctanh (X)= 1/2 1n ((1+X)/(1-X)) 

(uses the external DLOG library function) 

Note: For non-zero results, set the sign of the result to the original sign of X. 
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DATANH2 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: DATANH 2 


Size of Code Area 


342 


Hw 


Stack Requirement: 26 Hw 


Data CSECT Size: 


26 


Hw 


Intrinsic 


x Procedure 






Other Library Modules Referenced: 









ENTRY POINT DESCRIPTIONS 

Primary Entry Name: DATAN2 

Function: Computes arctan by fraction approximation in the range (-71,71) in double 

precision. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

ARCTAN2 (X, Y) , where X and Y are double precision scalars 
corresponding to sine and cosine 
respectively of the intended arc tangent 
argument . 

Other Library Modules: 



X 



Execution Time (microseconds): 248.4 

Input Arguments: 
Type Precision 

Scalar (sin) DP 

Scalar (cos) DP 

Output Results: 
Type Precision 

Scalar DP 



Errors Detected: 
Error # 



Cause 



How Passed 


Units 


F0 
F2 


- 


How Passed 


Units 


F0 


Radic 


Fixup 
Return 





62 arg 1 = arg 2 = 

Comments:Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Same algorithm as EATAN2, but values of constants and the fractional 
approximation formula is different for the double precision, as follows. 



Again, Z= 



sinx 



cosx 



. Special cases: 



( 1 ) If cos x<0 and Z<16" 14 , return ±n 

(2) sin x=cos x=0, signal error and return 0. 

(3) sin x*0, cos x=0, return + 71/2. 
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( 4 ) sin x*0, cos x*0, but Z>1 6 14 , return + n/2. 

(5) If (Z or 1/Z)<16" 7 , return Z. 

(6) If exponent of sin(x)- exponent of cos(x)>15, 
return + nl2. 

(7) If exponent of sin(x)- exponent of cos(x) <-51 , 
return arctan(O). 

The fractional approximation after reduction of Z to < tan 1 5° is: 

Tan -1 (Z) = Z + Z * Z 2 * F, where 
F = C1 + C2/(Z 2 + C3 + C4/(Z 2 + C5 + (C6/(Z 2 + C7)))). 

C1 =X'BF1E31FF1784B965' (-0.7371 899082768562E-2) 
C2 = X'C0ACDB34C0D1 B35D' (-0.67521 981 91 40421 0) 
C3 = X'41 2B7CE45AF5C1 65' (0.271 7991 21 4096480E+1 ) 
C4 = X'C1 1 A8F923B1 78C78' (-0.1 660051 565960002E+1 ) 
C5 = X41 2AB4FD5D433FF6' (0.26691 86939532663E+1 ) 
C6 = XC02298BB68CFD869' (-0.1 351 430064094942) 
C7 = X'41 1 54CEE8B70CA99' (0.1 331 2821 81 443987E+1 ) 

As in EATAN2, the intermediate result is adjusted to the proper section in the first 
quadrant, as follows: 

(original) Z< tan 15° +0 

tan15°<Z<1 -> +7t/6 

1/Z < tan 15° -^ {-k/2 + 1) then-1 (to preserve significant bits) 

tan 15°< 1/Z <1 -> (-7i/3 + 1) then-1 (to preserve significant bits) 

The resulting angle is adjusted to the proper quadrant as in EATAN2 (according to 
sign of sin x and cos x). 
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DATAN2 
Secondary Entry Name: DATAN 

Function: Computes arc tangent by fractional approximation in the range 
(-jt/2, +7i/2) in double precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

ARCTAN(X), where X is a double precision scalar. 
Other Library Modules: 



Execution Time (microseconds): 237.3 

Input Arguments: 

Type Precision How Passed Units 

Scalar DP F0 

Output Results: 
Type Precision How Passed Units 

Scalar DP F0 Radians 

Errors Detected: 
Error # Cause Fixup 

None 

Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Same as ARCTAN, but see DATAN2 for changes in values of DP constants and 
TAN" 1 formula. 
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DEXP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: DEXP 


Size of Code Area 


158 


Hw 


Stack Requirement: 18 Hw 


Data CSECT Size: 


66 


Hw 


Intrinsic 


x Procedure 






Other Library Modules Referenced: 


None 







ENTRY POINT DESCRIPTIONS 
Primary Entry Name: DEXP 
Function: Computes e x in double precision. 
Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

EXP(X), where X is a double precision scalar. 



X Other Library Modules: 

DPWRD, DSINH, DTANH 

Execution Time (microseconds): 290.5 

Input Arguments: 

Type Precision How Passed Units 

Scalar DP F0 

Output Results: 
Type Precision How Passed Units 

Scalar DP F0 

Errors Detected: 
Error # Cause Fixup 

6 X>1 74.673085 Return maximum positive floating point number 

Comments: 

Gives exponent underflow if argument less than -180.21825 -- no RTL error 
number; GPC error group 3 code 9. The error will not be detected if the program 
status word masks out the underflow errors. 
Registers Unsafe Across Call: F0.F1 ,F2,F3. 

Algorithm: 

First, decompose X as P'log2 + R', where P' is the integer part and first 
hexadecimal place of the result of dividing the high-order part of X by LOG2H, 
which is a single precision approximation to log2, rounded up. This is done in 80- 
bit precision in order to yield a true 56-bit value for R', by expressing log2 = LOG2H 
+ LOG2L, where LOG2L is a double precision scalar. R' has the same sign as X, 

and |R'| might be slightly > -^-. 
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Now, if R'>0, subtract -^- from it until it becomes < 0, each time adding -|6 to P'. 

If R' <- -*£, add -^- to it until it becomes >- -^-, each time subtracting Jq from 

P'. 

At the end of this, we have 

X = P * log2 + R, P an integral multiple of i~6 . ancl " ~^~ <R<0. 

Represent P as 4A - B - C/16 , where A, B, and C are integers, < B<3, 0<C<15. 
Then: 

e x = -|6 A *2" B *2" c/16 *e R 
To calculate this, we compute e R with a polynomial approximation of the form: 

e r = 1 + c-| r + c 2 r 2 + c 3 r 3 + c 4 r 4 + c 5 r 5 + c 6 r 6 
where the values of the constants are: 

c 1 = X'40FFFFFFFFFFFCFC = .9999999999999892 
c 2 = X'407FFFFFFFFAB64A' = .4999999999951 906 
c 3 = X'402AAAAAA794AA99' = . 1 666666659481 656 
c 4 = X'3FAAAA9D6AC1 D734' = .041 66661 73078875 
c 5 = X'3F2220559A1 5E1 58' = .008331 61 772003906 
c 6 = X'3E591 893' = .001 359497 

Then, 2" c/16 is computed by table lookup, 2~ B by shifting, and 16 A by adding A to 
the exponent of the answer. 
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DLOG 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: DLOG Size of Code Area 184 Hw 

Stack Requirement: 30 Hw Data CSECT Size: 2 Hw 



Intrinsic x Procedure 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: DLOG 

Function: Computes 1n(X) in double precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

LOG(X), where X is a double precision scalar. 



X Other Library Modules: 

DPWRD, DASINH, DATANH, DACOSH 
Execution Time (microseconds): 282.2 

Input Arguments: 

Type Precision How Passed Units 

Scalar DP F0 

Output Results: 
Type Precision How Passed Units 

Scalar DP F0 

Errors Detected: 
Error # Cause Fixup 

7 Argument outside range X > If X<0 return 1n(|X|); if X=0, return 

maximum negative floating point 

number 

Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

We write X = 16 p * 2' Q * M, where 1 / 2 <M<1 , P, Q are integers, 0<Q<3. P, Q, and M 

are found by fixed-point calculations. Define A=1 , B=0, if M> 42. 12, and A=1/2, B=1 
otherwise. Let Z=(M-A)/(M+A). 
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Then 1n(X) = (4P-Q-B)1n(2)+1n((1+Z)/(1-Z)) is computed by an approximation of 
the form: 



W+Ci W 3 



W 2 +C 2 + 



W 2 + C, + 



W 2 +C 



6 J 



where W=2Z, and the values of the constants are: 



c 1 =X'3DDABB6C9F18C6DD' 
c 2 = X'422FC604E13C20FE' 
c 3 = X'C38E5A1 C55CEB1 C4' 
c 4 = X'C1 6F2A64DDFCC1 FD' 
c 5 = X'C1 2A01 7578F548D1 ' 
c 6 = X'C158FA4E0E40C0A5' 



= 0.20859921 091 28247E-3 
= 0.4777351 1 960201 1 7E+2 
= -0.2277631 91 776981 3E+4 
= -6.947850100648906 
= -2.625356171124214 
= -5.561109595943017 
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DPWRD 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: DPWRD Size of Code Area 40 Hw 

Stack Requirement:. 
Intrinsic 



22 Hw 



Data CSECT Size: 
Procedure 



Hw 



x 



Other Library Modules Referenced: DEXPDLOG.DSQRT 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: DPWRD 

Function: Performs exponentiation of double precision scalar to double precision 
power. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

X**Y, where X and Y are scalars and at least X or Y 
is double precision. 

Other Library Modules: 



X 



Execution Time (microseconds): 
Input Arguments: 



Type 

Scalar(X) 

Scalar(Y) 

Output Results: 
Type 
Scalar 

Errors Detected: 
Error # 
4 
24 



Precision 

DP 

DP 



Precision 
DP 



Cause 



How Passed Units 

F0 

F2 



How Passed Units 



F0 



Fixup 
X=0; Y<0 Return 

X<0 Return |X| 

Comments: 

Other than Errors 4 and 24, no additional range or overflow checking is performed. 
Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

If exponent = 0.5, compute X 05 as Vx (by using the external DSQRT function), 

otherwise X Y = e Y Log x , using the external DEXP and DLOG functions. The call to 
DEXP could result in error #6 if Y Log X is sufficiently large. 
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DPWRI 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: DPWRI Size of Code Area 54 

Stack Requirement:. 
Intrinsic 



26 Hw 



Data CSECT Size: 
Procedure 



_Hw 
Hw 



x 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: DPWRI 

Function: Exponentiation of a double precision scalar to a fullword integer power. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

X**I where X and Y are scalars and at least X or Y 
is double precision. 

Other Library Modules: 



X 



Execution Time (microseconds): 

Input Arguments: 
Type 

Scalar(base) 
Integer(exponent) 

Output Results: 
Iy_pe 
Scalar 



Precision How Passed Units 



DP 
DP 



F0 
R6 



Precision How Passed Units 



Errors Detected: 
Error # 



DP 



Cause 



F0 



Zero raised to power<0 



Fixup 
Return 



Comments: 

Registers Unsafe Across Call: F0.F1 ,F2,F3. 

Other than detection of Error 4, no additional range or exponent overflow checking 
is done. According to the Space Shuttle Model AP101-S Principles of Operation, 
an exponent overflow occurs when the result exponent exceeds 16**63 and an 
exponent underflow occurs when the result exponent is less than 16**-64. For 
base ** |exp|, if |base|>1 then an exponent overflow is possible. If exp<0 and 
0<|base|<1 then an exponent underflow is possible. If the exponent underflow 
mask bit is zero (inhibiting the interrupt) then the result is a true zero. This will 
cause a divide by zero GPC error when the reciprocal of the result is taken. If the 
exponent underflow mask bit is one (enabling the interrupt) then the operands are 
unchanged. This could cause an exponent overflow when the reciprocal of the 
result is taken. 
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Algorithm: 

If I is the fullword exponent, D the base, write 

\=T?= e\2 l , where e- t = or 1. 

Then: 

D i = D z i e i 2 '= nj D e i 2 '= n e . =1 D 2 ', if any ej =1 , and =1 otherwise. 

To compute n e=1 D 2 , it is only necessary to compute successively D 2 = D, D 2 , D 4 , 

D 8 ,..., and multiply the result by D 2 whenever the i-th bit of the exponent is 1 . This 
is determined by shifting bits one by one out of the exponent, and testing each one 
for a value of one. The loop terminates when the remaining part of the exponent is 
zero. Operations are done on absolute value of exponent. If exponent was 
negative, the reciprocal of the result is taken as the final result. 
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DPWRI 
Secondary Entry Name: DPWRH 
Function: Exponentiation of a double precision scalar to a halfword integer power. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

X**I where X is a double precision scalar; I is a 
single precision integer. 

Other Library Modules: 



Execution Time (microseconds): 

Input Arguments: 

Type Precision How Passed Units 

Scalar(X) DP F0 

Integer(l) SP R6 

Output Results: 
Type Precision How Passed Units 

Scalar DP F0 

Errors Detected: 
Error # Cause Fixup 

4 Zero raised to power < Return 

Comments: 

Other than detection of Error 4, no additional range or exponent overflow checking 
is done. According to the Space Shuttle Model AP '101 -S Principles of Operation, 
an exponent overflow occurs when the result exponent exceeds 16**63 and an 
exponent underflow occurs when the result exponent is less than 16**-64. For 
base ** |exp|, if |base|>1 then an exponent overflow is possible. If exp<0 and 
0<|base|<1 then an exponent underflow is possible. If the exponent underflow 
mask bit is zero (inhibiting the interrupt) then the result is a true zero. This will 
cause a divide by zero GPC error when the reciprocal of the result is taken. If the 
exponent underflow mask bit is one (enabling the interrupt) then the operands are 
unchanged. This could cause an exponent overflow when the reciprocal of the 
result is taken. 
Registers Unsafe Across Call: F0,F1 ,F2,F3. 

Algorithm: 

The halfword exponent is shifted right to convert it to a fullword, then the DPWRI 
algorithm is used. 
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DSINH 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: DSINHI Size of Code Area 130 Hw 

Stack Requirement: 22 Hw Data CSECT Size: 2 Hw 



Intrinsic x Procedure 



Other Library Modules Referenced: DEXP 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: DSINH 

Function: Computes hyperbolic sine in double precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

SINH(X), where X is a double precision scalar. 
Other Library Modules: 



Execution Time (microseconds): 8.81374E-1<|X|<1.75366E+2: 434.1 

2.06301 7E-1 0<|X|<8.81 374E-01 : 1 96.7 
|X|<2.063017E-1 0:45.8 

Input Arguments: 

Type Precision How Passed Units 

Scalar DP F0 

Output Results: 
Type Precision How Passed Units 

Scalar DP F0 

Errors Detected: 
Error # Cause Fixup 

9 Argument outside range: |X|<1 75.366 Return maximum positive 

floating point number 

Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

If |X|<1 .626459E-1 0, then sinh(X) = X. 

If 1.626459E-10<|X|<.881375, then sinh(X) is computed via a polynomial 
approximation. 

The form of the polynomial approximation is: 

sinh(X) = X + C^ 3 + C 2 X 5 + C 3 X 7 + C 4 X 9 + C 5 X 11 + C 6 X 13 
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where the values of the constants are: 



C 1 = X'402AAAAAAAAAAA4D' 
C 2 = X'3F2222222222BACE' 
C 3 = X'3DD00D00CB06A6F5' 
C 4 = X'3C2E3BC881 345D91 ' 
C 5 = X'3A6B96B8975A1 636' 
C 6 = X'38B2D4C1 8441 8A97' 



= 0.1666666666666653 
= 0.8333333333367232E-2 
= 1.9841 26981 27071 1E-4 
= 2.75573302561 0683E-6 
= 2.504995887597646E-8 
= 1.6264591 77981 471 E-10 



Otherwise, sinh(|X|) or cosh(|X|) is calculated using EXP. The number V, equal to 
0.4995050, is introduced to control rounding errors and the formula is as follows: 



sinh(X) = 



2v 



5 (X+logv) 



,(X+logv) 



cosh(X) = 



2v 



,(X+logv) 



.(X+logv) 



The identities sinh(-X) = -sinh(X) and cosh(-X) 
sinh(X) and cosh(X) from sinh(|X|) and cosh(|X|). 



= cosh(X) are used to recover 
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DSINH 



Secondary Entry Name: DCOSH 

Function: Computes hyperbolic cosine in double precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

COSH(X), where X is a double precision scalar. 
Other Library Modules: 



Execution Time (microseconds): |X|<1 .75366E+2: 422.6 

Input Arguments: 

Type Precision How Passed Units 

Scalar DP F0 

Output Results: 
Type Precision How Passed Units 

Scalar DP F0 

Errors Detected: 
Error # Cause Fixup 

9 Argument outside range |X|<1 75.366 Return maximum positive 

floating point number 

Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

See DSINH Algorithm. 
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DSNCS 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: DSNCS 


Size of Code Area 


140 


Hw 


Stack Requirement: 28 Hw 


Data CSECT Size: 


64 


Hw 


Intrinsic 


x Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS 

Primary Entry Name: DSNCS 

Function: Computes sine(X) and cosine(X) in double precision. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

SIN (X) and COS (X) , where X is a double precision scalar 

that is recognized as the same for 
both invocations. 

Other Library Modules: 



X 



Execution Time (microseconds): 

Input Arguments: 
Type Precision 



How Passed 



Units 



Scalar 


DP 


FO 


Radia 


Output Results: 
Type 
Scalar 
Scalar(COS Result) 


Precision 

DP 

DP 


How Passed 

FO 

F2 


Units 


Errors Detected: 
Error # Cause 






Fixuo 



8 



Argument outside range: |X|<823296.0625 
(approximately n * 2 18 ) 



V2 
Return -^ 



Comments: 

The actual values of 32/n (X41A2F9836E4E4414') and tt/32 
(X'401921FB54442D17') are not used. Instead, an approximate value is used for 
32/7t(X'41A2F9836E4E45C9') because the lower halfword of this value (45C9) is 
used as the maximum limit of the DCOS, DSIN, and DSNCS routines. Similarly, an 
approximate value is used for tc/32 (X401921FB544420B9') because the lower 
halfword of this value (20B9) is used as the underflow limit of the DCOS, DSIN, and 
DSNCS routines. 

The precision of the DSNCS outputs is limited to 8 significant digits relative to 1 .0 
(or+/-1E-8) 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 
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Algorithm: 

Register 5 is first set to indicate the sign of the argument (x) and which entry point 
was used. For |x| < X'251 00000' (floating point), x gets set to zero to prevent 
underflow. The argument is then multiplied by 32/n; the integer portion of this result 
is converted to fixed point and the fractional portion (remainder) is retained in 
floating point (A). The fixed point number is an integer multiple of the number of 
7i/32 sections that comprise the number, divided into the following logical sections: 

- the number of 27ts in the original number, 

- the octant in which the argument lies (within the range to 2k), 

- the number of the k/32 interval in which the argument lies within a range of 
to 7i/4 (used as an index value into a table of sine and cosine values). 

If the octant is odd, the argument has to be complemented. This is done by 
complementing each of the index bits and taking A = 1 -A. The table of index 
values are good for only odd k/32 intervals, so for the even index values A = A - 1 . 
However, this is not done for an index value of zero. An index value of zero 
indicates that the argument is in the range of nrc/2 - k/32 < x < n7t/2 + 7t/32, n=0, ± 1 , 
± 2,..., in which case A is left unchanged and the index value made negative for 
later use. At this time the octant is isolated and saved for later use and the number 
of 27is is no longer needed and dropped. 

STEP A): The floating point remainder (A) represents the normalized increment of 
the argument relative to one of the table arguments. At this point, the sine and 
cosine of this increment can be evaluated with the following polynomials: 






f 

" +A 2 (ASA 2 +BS) 
^32 j 



COsA— =1 .0+2A 2 (ACA 2 +BC) 

Where: 

AS = X'3B14634A 

BS = X'BDA55DE5' 

AC = X'3C2075A1' 

BC = XBE9DE937' 
STEP B): If the sign of the index value (previously computed) is not negative then 
the following trigonometric identities are used to compute the sine and/or cosine: 

K K K 

sin x=sin(TSj+ A ^ )= (sin TSj)(cos A ^ ) + (cos TSj)(sin ) A ~ 

K K K 

cos x = cos(TCj+ A— )= (cos TCj)(cos A — ) + (sin TCj)(sin A— ) 
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The appropriate equation and values for TSj and TCj are determined by the octant 


value. 




Octant 


Equation I 





Sin 


1 


Cos 


2 


Cos 1 


3 


Sin 1 


4 


Sin 1 


5 


Cos 2 


6 


Cos 2 


7 


Sin 3 


and TS and TC are 


given by the table: 


TS = 


D'.09801 71 4032875' 


TS, = 


D'.290284677254' 


TS 2 


D'.471 3967368259' 


TS 3 = 


D'.6343932841633' 


TC = 


D'.9951 847266737' 


Td = 


D'.9569403357347' 


TC 2 = 


D'.881 921 2643506' 


TC 3 = 


D'.77301 04533640' 



If the index value is negative the sine or cosine computed from STEP A is used 
without the table or the above equations. Finally, the sign of the result is 
complemented if the octant number is greater than 3. If the entry point was DSNCS 
then the octant is incremented by 2 (MOD 8) and the logic STEP B is executed 
again. 

Output is passed back in the register pair F0/F1 if DSIN or DCOS was called. If the 
entry point was DSNCS then the output is in F0/F1 for Sin and F2/F3 for Cos. 



6-82 November 2005 



HAL/S Compiler System Specification USA003089 

32.0/17.0 

DSNCS 
Secondary Entry Name: DCOS 
Function: Computes cosine(x) in double precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

COS (X) , where X is a double precision scalar, 
Other Library Modules: 



Execution Time (microseconds): -7t<X<7t: 261 .8 

X>7i or X<-7i: 264.2 

Input Arguments: 

Type Precision How Passed Units 

Scalar DP F0 Radians 

Output Results: 
Type Precision How Passed Units 

Scalar DP F0 

Errors Detected: 
Error # Cause Fixup 

8 Argument outside range |X|<823296.0625 Return -y 

(approximately 7t*2 18 ) 

Comments: 

For most of the range of input arguments to the DCOS routine, results are returned 
that are accurate to 5 significant decimal digits (instead of the 8 significant decimal 
digits that are generally required for double precision routines). 

The value used in the routine for 7t(2 18 ) is hex'45C90000'=823296. Because a 
halfword instruction is used in the limit test, the first error occurs when 
|X|=823296.0625. 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 
Algorithm: 

See DSNCS Algorithm. 
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DSNCS 
Secondary Entry Name: DSIN 
Function: Computes sine(x) in double precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

SIN(X), where X is a double precision scalar. 
Other Library Modules: 



Execution Time (microseconds): 267 

Input Arguments: 

Type Precision How Passed Units 

Scalar DP F0 Radians 

Output Results: 
Type Precision How Passed Units 

Scalar DP F0 

Errors Detected: 
Error # Cause Fixup 

72 
8 Argument outside range |X|<823296.0625 Return -y 

(approximately 7t*2 18 ) 

Comments: 

For most of the range of input arguments to the DSIN routine, results are returned 
that are accurate to 5 significant decimal digits (instead of the 8 significant decimal 
digits that are generally required for double precision routines). The value used in 

the routine for 7t*(2 18 ) is hex'45C90000' = 823296. Because a halfword instruction 
is used in the limit test, the first error occurs when |X| = 823296.0625. 
Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 
Algorithm: 

See DSNCS Algorithm. 
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DSQRT 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: DSQRT Size of Code Area 184 Hw 

Stack Requirement: 18 Hw Data CSECT Size: 8 Hw 



Intrinsic x Procedure 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: DSQRT 

Function: Computes square root in double precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

SQRT (X) , where X is a double precision scalar. 



X Other Library Modules: 

DACOS, DASINH, DPWRD, VV10D3, DACOSH 
Execution Time (microseconds): 345.2 

Input Arguments: 

Type Precision How Passed Units 

Scalar DP F0 

Output Results: 
Type Precision How Passed Units 

Scalar DP F0 

Errors Detected: 
Error # Cause Fixup 

5 X<0 Return sqrt (|X|) 

Comments: 

Prior to Release 1 1 .0 of the HAL/S-FC compiler, this routine computed square 
roots in full (8/56) precision. PCR 4791 was incorporated in Release 11.0 and 
reduced precision to 8/31 . For further information refer to PCR 4791 . 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Since the input value X is in floating point format, it can be viewed as an exponent 

value 16 2P+ Q and a mantissa value M. The input value X can therefore be 
represented as: 

X = 1 6 2P+ Q ■ M 
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where Q = if the characteristic is even and Q = 1 if the characteristic is odd (i.e. Q 
represents the LSB of the characteristic). If Q is subtracted from the characteristic 
then the remaining portion of the characteristic can be represented as a multiple of 
2 (i.e. 2P). The input value is assumed to be normalized so the value of M can be 
defined as 

16 ^ M o< 1 

A first approximation ofVx is made by processing each part of the input argument 

(characteristic & mantissa) separately. The characteristic of Vx is computed by 
adding 1 to the characteristic of X and dividing by 2. Therefore: 

r (Cxn + 1) 

where C x i is the characteristic of the first approximation and C x0 is the 

characteristic of the input value. 

The square root of the mantissa, M-|, is computed using a quadratic equation of the 

form: 

Mi = AM 2 + BM + C 

where A, B, and C are precomputed halfword constants and M is the mantissa of 
the input value X in halfword fixed point format. Two values are possible for each of 
the constants A, B, and C. The assumed values of these constants are dependent 
on the value of the fixed point mantissa: 

M <0.25 M >0.25 

A HEX'AF76' HEXF5EF' 

B HEX433E' HEX219F' 

C HEX0427' HEX084D' 

The characteristic C X i and mantissa Mi are then recombined by shifting and 
'ORing' producing a floating point format first approximation X-|. This value is then 
used in the first of two Newton-Raphson iterations. The form of the first is: 



*-5 



X 1 



'1 J 
The value X2 is then used in a second iteration of Newton-Raphson of the form: 



Xq = Xo + 



X -X 2 



The final result X 3 is returned, in double precision floating point format, to the 
calling routine via F0. 
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Warning: 

The DSQRT will return correct results if the argument is less than 7.2368577E+75. 
For arguments > 7.2368577E+75, floating point exponent overflow occurs and 
incorrect results are returned. 



6-87 November 2005 



HAL/S Compiler System Specification USA003089 

32.0/17.0 









DTAN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: DTAN 


Size of Code Area 


196 


Hw 


Stack Requirement: 38 Hw 


Data CSECT Size: 4 


Hw 




Intrinsic 


x Procedure 






Other Library Modules Referenced: 


None 







ENTRY POINT DESCRIPTIONS 

Primary Entry Name: DTAN 

Function: Computes tangent in double precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

TAN(X), where X is a double precision scalar. 
Other Library Modules: 



Execution Time (microseconds): 

Input Arguments: 

Type Precision How Passed Units 

Scalar DP F0 Radians 

Output Results: 
Type Precision How Passed Units 

Scalar DP F0 

Errors Detected: 
Error # Cause Fixup 

11 Argument outside range: Return 1 

|X|<7T*2 50 

12 Argument too near a singularity of Return maximum positive 
the tangent function floating point number 

Comments: 

Error gets very large near a singularity, before error #1 2 is sent. 

The value used in the routine for 7t*2 50 is hex'4DC90FDA' « 

3.53711 87060081 0E+1 5. 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

4 
Multiply X by - , and give the characteristic of this to X'0000000000000008' for 

use as a comparand to determine nearness to a singularity. 
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The integer part of IX* - I is the octant. 

4 
If the octant is even, let w = fraction part of IXI* - 

71 



4 

K 



If the octant is odd, let w = -(1 - fraction) part of |X|* 

Next, compute two polynomials P(w) and Q(w). 
If w > 2~ 46 , then the forms of the polynomials are: 

P(w) = w(a + a-|W 2 + a 2 w 4 + w 6 ) 

Q(w) = b + b-|W 2 + b 2 w 4 + b 3 w 6 

If w < 2" 46 , then with u = w if IXI* - <1 , and u = -w otherwise. 

71 

P(w) = w(a + u) 

Q(w) = b + b 3 u 
where the values of the constants are: 

a = XC58AFDD0A41 992D4' =-569309.04006345 

a 1 = X44AFFA63931 59226' 

a 2 = XC325FD4A87357CAF 

b = XC5B0F82C871 A3B68' 

b 1 = X4532644B1 E45A133' 

b 2 = XC41 926DBBB1 F469B' 

b 3 = X422376F171 F72282' 



= 45050.3889630777 
=-607.8306953515 
=-724866.7829840012 
= 206404.6948906228 
=-6438.8583240077 
= 35.4646216610 



If w < the comparand derived earlier and the octant = 1 or 2 (mod 4), then error 12 
is sent. Otherwise, Q(w)/P(w) is returned with its sign adjusted. In octants = or 3 
(mod 4), P(w)/Q(w) is returned, with the sign adjusted according to tan(-x) = -tan(x). 
The justification for this computation is that 



P(w) 
Q(w) 



=tan 



W 



K 

4 



and 



Q(w) 
P(w) 



=cot 



W 



K 

4 



and simple trigonometric identities give, for R=fraction part of X* - : 

71 
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l 4j 




( n\ 

I 4j 


|'r*^ 

I 4, 


/ 


I 4j 



Octant (mod 4) Formula for tan 

tan(|x|) = tan 

1 tan(|x|) = cot 

2 ta.n(|x|) = -cot 

3 tan(|x|) = -tan 

which is the result of the computation as performed. 

Notes: 

DTAN does not always meet the 8 significant decimal digit precision requirement 
for double precision RTL routines because of a limitation in the algorithm. The 
algorithm multiplies the input value (X) by 4/rc to determine the octant. The integer 
part of the product |X*4/7t| is the octant. Depending on whether the octant is even 
or odd, the fraction part or the sign inverse of one minus the fraction part of |X*4/rc| 
is input into a set of polynomial equations to determine the tangent value. The 
precision limitation is caused by using this fractional number. 
Double precision floating point numbers on the AP-101 system are represented by 
64 bits where the first bit is the sign, the next 7 bits give a hexadecimal exponent 
biased by 64, and the final 56 bits are a fractional mantissa. 

( _1)Sign, 16 (exponent-bias) t fraction 

The fraction is composed as follows: 

f = bit9*2 " 1 + bit10*2" 2 + bit11*2" 3 + ... + bit64*2~ 56 
This means that if the number being represented is completely fractional (zero on 
the left of the radix point) it can be as accurate as 1x2" 56 or approximately 

1.39x10" 17 . As the input value gets larger, more of the bits in the mantissa are 
used to represent the integer portion of the number to the left of the radix point 
which is used to determine the octant. This leaves fewer bits to represent the 
fractional part of the number which determines the tangent value. 

For exponents equivalent to 2 50 this means that the bits used for the fraction can 
only be as accurate as 

2 50 *2" 56 = 2" 6 or 1. 5625*1 0" 2 

In order to retain eight digits of accuracy in the fractional portion of the mantissa, and 
therefore the tangent value, the exponent of the input must be no larger than the 

equivalent of 2 29 . 
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DTANH 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: DTANH 


Size of Code Area 


154 


Hw 


Stack Requirement: 30 Hw 


Data CSECT Size: 


Hw 


f 


Intrinsic 


x Procedure 






Other Library Modules Referenced: 


DEXP 







ENTRY POINT DESCRIPTIONS 

Primary Entry Name: DTANH 

Function: Computes hyperbolic tangent in double precision. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

TANH(X), where X is a double precision scalar. 

Other Library Modules: 



X 



Execution Time (microseconds): X|<3.72529E-9: 47.8 

3.72529E-9<|X| < 5.4931 E-1 : 1 77.9 
5.4931 E-1 <|X| < 2.01 01 E+1 : 420.6 
2.0101 E+1<|X|: 54.6 

Input Arguments: 
Type Precision 

Scalar DP 

Output Results: 
Type Precision 

Scalar DP 

Errors Detected: 
Error # Cause 

None 

Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

If |X|>20.1 01 , return +1 or -1 , according to the sign of X. 
If 0.54931 <|X|<20. 101, then (using DEXP), 

2 



How Passed 


Units 


F0 


- 


How Passed 


Units 


F0 


- 


Fixup 





tanh(|X|)=1 



1 + e 



2|X| 



Restore sign with tanh(-X) = -tanh(X). For |X|<16" 7 , tanh(X) = X. 
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s-7 



For other values of X, 16"'<|X|<0. 54931 , use a continued fraction approximation: 



tanh(X) = X + X 3 



r 






Co 






^ 


X 2 


+ C1 


+ 




c 2 






X 2 + 


c 3 +- 


c 4 




x 2 + 


Cjy 



where the values of the constants are: 
C = X'C0F6E12F40F5590A' 
Ci =X'419DA5D6FD3DBC84* 
C 2 = XC31C504FEF537AF6' 
C 3 = X'424D2FA31CAD8D00' 
C 4 = XC31 36E2A5891 D8E9' 
C 5 = X'4219B3ACA4C6E790' 



=-.9643735440816707 
= 9.8529882328255392 
=-453.01951534852503 
= 77.186082641955181 
=-310.8853383729134 
= 25.701853083191565 
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EATAN2 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: EATAN2 Size of Code Area 
Stack Requirement: 
Intrinsic 



148 Hw 



18 Hw 



Data CSECT Size: 
Procedure 



10 Hw 



x 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: EATAN2 

Function: Computes arctangent by fractional approximation in the range 
(-71,71) in single precision. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

ARCTAN2 (X, Y) , where X and Y are single precision scalars 
corresponding to sine and cosine 
respectively of the intended arctangent 
argument . 

Other Library Modules: 



X 



Execution Time (microseconds): 120.0 
Input Arguments: 



Precision 

SP 

SP 



Precision 
SP 



Cause 



How Passed Units 

F0 

F2 



How Passed Units 



F0 



arg 1 = arg 2 = 



Radians 

Fixup 
Return 



Type 

Scalar(sin) 

Scalar(cos) 

Output Results: 
Type 
Scalar 

Errors Detected: 
Error # 
62 

Comments: 

For a very small number of input arguments, the EATAN2 routine will return results 
that are accurate to 5 significant decimal digits (instead of the 6 significant decimal 
digits that are generally required for single precision routines). For most of the 
range of the EATAN2 routine, results are returned that are accurate to 6 significant 
decimal digits. 
Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

The pointer to the data area that contains quadrant section constants is set and the 
sign of sin(x) is saved. The value Z = |sin(x)|/|cos(x)| is checked for several special 
cases. 
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) If cos(x)<0 and Z<1 6" 6 , then return n * SIGNUM(sin(x)). 

(2) If sin(x) = cos(x) = 0, then signal error and return 0. 

(3) If sin(x) * 0, cos(x) = 0, then return ±it/2 * SIGNUM(sin(x)). 

( 4 ) If sin(x) * 0, cos(x) * 0, but Z>16 6 , again return ±n/2 = 
(7t/2*SIGNUM(sin(x))). 

(5) If (Z or 1/Z)<16" 3 , return Z. 

(6) If exponent of sin(x) - exponent of cos(x)>7, return ±n/2. 

Now, all of the special cases have been checked for. If the routine gets this far, it is 
time to reduce Z = tan x so that Z < tan rc/1 2(tan 15°) 
There are four cases to examine for Z in the 1st quadrant. 

A) Z>1.Use1/Z. 

tan 15°<1/Z<1 

1/Z<tan15° 

B) Z<1 

tan 15°<Z<1 

Z<tan 15° 

For Z or 1/Z>tan 15°, the reduction 

tan" 1 (Z) = tt/6 + tan(Y), where Y = {Zj3 -1)/(Z+ 73) is used. 
To protect significant bits, Y is computed as 

Y=(Z(V3-1)-1 +Z)/{Z + j3) 
Once Z or 1/Z<tan 15°, the formula for arctan Z can be applied. 

tan ^ = D + CZ 2 + (B/(Z 2 + A)), 

where the constants have the following values (hex values are used in the routine): 
A = X'41168A5E' = 1.4087812 
B = X'408F239C = 0.55913711 
C = X'BFD35F49' = -0.051604543 
D = X'409A6524' = 0.60310579 

To adjust the angle to the proper section, the appropriate section constant is added 
to or subtracted from the intermediate result, as follows: 

Z<tan 15° -» +0(E'0') 

tan 15°<Z<1 -» + tt/6 (X40860A92') 

1/Z<tan 15° -^ -7i/2(X'C11921FB') 

tan 15°<1/Z<1 -^ -7t/3(X'C110C152) 
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We now have the correct angle for the first quadrant. All that remains is to fix the 

quadrant. If the cos(x)<0, then tan" 1 (X) = it - tan" 1 (Z). That fixes the angle to agree 
with the sign of cos(x). Now make the sign of the answer agree with the sign of 

sin(x) ,i.e. - tan" 1 (Z) for -sin(x) and +tan" 1 (Z) for +sin(x). The result, in radians, is in 
the correct quadrant in the range {-n, +n). 
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EATAN2 
Secondary Entry Name: ATAN 

Function: Computes arctangent by fractional approximation in the range 
(-7t/2, + 7t/2) in single precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

ARCTAN(X), where X is a single precision scalar. 
Other Library Modules: 



Execution Time (microseconds): 116.5 

Input Arguments: 

Type Precision How Passed Units 

Scalar SP F0 

Output Results: 
Type Precision How Passed Units 

Scalar SP F0 Radians 

Errors Detected: 
Error # Cause Fixup 

None 

Comments: 

For a very small number of input arguments, the ATAN routine will return results 
that are accurate to 5 significant decimal digits (instead of the 6 significant decimal 
digits that are generally required for single precision routines). For most of the 
range of the ATAN routine, results are returned that are accurate to 6 significant 
decimal digits. 
Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Very similar to EATAN2, but the only special case that can be checked is Z = 
|tan(x)|<(16)" 3 . If Z is this small, then return Z to avoid an underflow exception later 

on. The algorithm for reduction and computation of tan" 1 (Z) is the same as 
EATAN2 again until quadrant fixing time. Since ARCTAN has only one arg, the 

result can only be adjusted in the range {-k/2, +k/2). The tan" 1 (Z) is computed for 

the first quadrant. 

If the argument, tan(x), is negative, the result is made negative. 
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EPWRE 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: EPWRE Size of Code Area 32 

Stack Requirement: 
Intrinsic 



Hw 



22 Hw 



Data CSECT Size: 
Procedure 



Hw 



x 



Other Library Modules Referenced: EXPLOG.SQRT 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: EPWRE 

Function: Exponentiation of a single precision scalar to a single precision scalar power. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

X**Y, where X and Y are single precision scalars . 
Other Library Modules: 



X 



Execution Time (microseconds): If Y = .5: 124.7 

If Y* .5: 337.1 

Input Arguments: 
Type 

Scalar (base) 
Scalar (exponent) 



Precision 

SP 

SP 



How Passed Units 

F0 

F2 



Output Results: 
Type 
Scalar 

Errors Detected: 
Error # 
4 
24 



Precision 
SP 



Cause 



How Passed Units 
F0 



Zero raised to power <0 
Base<0 



Fixup 
Return 
Use Ibasel 



Comments: 

For most of the range, the EPWRE routine will return results that are accurate to 4 

significant decimal digits (instead of the 6 significant decimal digits that are 

generally required for single precision routines). 

Except for the detection of errors 4 and 24, no range or overflow checking is 

performed. 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

If exponent = 0.5 compute X 05 asVx (by using the external SORT function). 
Otherwise, X Y = e Y ln x , using the external EXP and LOG functions. 
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EPWRI 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: EPWRI Size of Code Area 38 

Stack Requirement: 
Intrinsic 



Hw 



18 Hw 



Data CSECT Size: 
Procedure 



Hw 



x 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: EPWRI 

Function: Exponentiation of a single precision scalar to a double precision integer 
power. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

X**I, where X is a single precision scalar, and I is a 
double precision integer. 

Other Library Modules: 



X 



Execution Time (microseconds): 

38.2 + (n-1) * 16.2 + 6.0m + 14.2 (if exponent negative), where 

n = number of significant digits in binary representation of |exponent|. 

m = number of significant 1's in binary representation of |exponent|. 

Input Arguments: 



Type 

Scalar (base) 
Integer (exponent) 


Precision 

SP 

DP 




How Passed 

FO 

R6 


Units 


Output Results: 
Type 
Scalar 


Precision 
SP 




How Passed 
FO 


Units 


Errors Detected: 
Error # 
4 


Cause 

Zero raised to 


power < 


Fixup 
Return 




Comments: 











Other than detection of Error 4, no additional range or exponent overflow checking 
is done. According to the Space Shuttle Model AP '101 -S Principles of Operation, 
an exponent overflow occurs when the result exponent exceeds 16**63 and an 
exponent underflow occurs when the result exponent is less than 16**-64. For 
base ** |exp|, if |base|>1 then an exponent overflow is possible. If exp<0 and 
0<|base|<1 then an exponent underflow is possible. If the exponent underflow 
mask bit is zero (inhibiting the interrupt) then the result is a true zero. This will 
cause a divide by zero GPC error when the reciprocal of the result is taken. If the 
exponent underflow mask bit is one (enabling the interrupt) then the operands are 
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unchanged. This could cause an exponent overflow when the reciprocal of the 

result is taken. 

Registers Unsafe Across Call: F0,F1 ,F2,F3. 

Algorithm: 

Let I = |exponent|, E = base. Write 

l= Z jL 2 o ej 2 , where ej = or 1 for all i. 

Then 

•J ,-j 



i v o o Q I 

E 1 =E i e i = 7t-E e i =^ ei= i E if some ei = 1 , and = 1 otherwise. 

The product 7r e . =1 E is computed in a loop. Each time around the loop, E 2k is 



multiplied by itself to give E 2 + . The k+1-st bit is shifted out of the exponent. If it 
is 1 E ,is multiplied into the result. If not, the result is left alone. When the 
remaining exponent is zero, the loop is finished and the result is E 1 . If the exponent 
was positive, return E 1 . Otherwise, return the reciprocal of E L 
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EPWRI 
Secondary Entry Name: EPWRH 
Function: Exponentiation of a single precision scalar to a single precision integer power. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

X**I, where X is a single precision scalar, and I is a 
single precision integer. 

Other Library Modules: 



Execution Time (microseconds): same as EPWRI, except constant is 38.8. 
Input Arguments: 



Type 

Scalar (base) 
Integer (exponent) 


Precision 

SP 

SP 


How Passed 

FO 

R6 


Units 


Output Results: 
Type 
Scalar 


Precision 
SP 


How Passed 
FO 


Units 


Errors Detected: 
Error # 
4 


Cause 

Zero raised to 


power < 


Fixup 
Return 



Comments: 

For most of the range of the EPRWH routine, results are returned that are accurate 
to 4 significant decimal digits (instead of the 6 significant decimal digits that are 
generally required for single precision routines). 

Other than detection of Error 4, no additional range or exponent overflow checking 
is done. According to the Space Shuttle Model AP '101 -S Principles of Operation, 
an exponent overflow occurs when the result exponent exceeds 16**63 and an 
exponent underflow occurs when the result exponent is less than 16**-64. For 
base ** |exp|, if |base|>1 then an exponent overflow is possible. If exp<0 and 
0<|base|<1 then an exponent underflow is possible. If the exponent underflow 
mask bit is zero (inhibiting the interrupt) then the result is a true zero. This will 
cause a divide by zero GPC error when the reciprocal of the result is taken. If the 
exponent underflow mask bit is one (enabling the interrupt) then the operands are 
unchanged. This could cause an exponent overflow when the reciprocal of the 
result is taken. 
Registers Unsafe Across Call: F0,F1 ,F2,F3. 

Algorithm: 

Halfword exponent is shifted right to convert to a fullword. Then, EPWRI routine is 
used. 
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EXP 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: EXP Size of Code Area 108 

Stack Requirement: 
Intrinsic 



Hw 



18 Hw 



Data CSECT Size: 
Procedure 



Hw 



x 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: EXP 

Function: Computes e x in single precision. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

EXP(X), where X is a single precision scalar 
Other Library Modules: 



X 



X 



TANH, EPWRE, SINH 

Execution Time (microseconds): 141.8 

Input Arguments: 



Type 
Scalar 


Precision 
SP 


How Passed 
F0 


Units 


Output Results: 
Type 
Scalar 


Precision 
SP 


How Passed 
F0 


Units 


Errors Detected: 
Error # 
6 


Cause 

X>1 74.67308 


Fixup 

Return maximum po 


sitive flo 



Comments: 

Gives exponent underflow if argument is less than -180.21826 --No RTL error 
number; GPC error group 3 code 9. The error will not be detected if the program 
status word masks out the underflow errors. 
Registers Unsafe Across Call: F0,F1,F2. 
Warning: For values in the range -1 80.21 826<X<-1 80.21 806 the EXP routine 
returns values accurate to only 5 significant digits, instead of the expected 
6. 

Algorithm: 

Let X (log 2 e) = 4R-S-T, where R and S are integers, 0<S<3, and 0<T<1. 

Thenexp(X) = 16 R *2 _s *2" T 
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2" T is computed by a fractional approximation of the form: 

2-T=1 + ?L 



CT 2 -T + D + ^^ 
A + T 2 



The computation is carried out in fixed-point, and the values and scaling of the 

constants are: 

A = X'576AE119' = 87.417497 at bit 7 

B = X'269F8E6B' = 61 7.97227 at bit 1 1 

C = X'B9059003' = -0.03465736 at bit (-4) 

D = X'B05CFCE3' = -9.95459578 at bit 4 

The multiplication by 2" s is carried out by shifting right S places, and the 
multiplication of 16 R is done by adding R to the floating exponent. 
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IPWRI 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name:IPWRI 


Size of Code Area 


46 


Hw 


Stack Requirement: 18 Hw 


Data CSECT Size: 2 


Hw 




Intrinsic 


x Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS 

Primary Entry Name: IPWRI 

Function: Computes double precision integer to positive double precision integer 
power. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

arg 1 ** arg 2, where arg 1 is a double precision integer 

variable, and arg 2 is a positive double 
precision integer literal. A literal 
which has a magnitude greater than 32,767 
is considered to be a double precision 

Other Library Modules: 



X 



Execution Time (microseconds): k+16.4(n-1)+7.0m+0.4(n-2) if n>2, where k=44.6, 

n = # of significant digits in binary representation of arg2, 

m = # of significant ones in binary representation of 
arg2. 



Input Arguments: 
Type 

Integer (base) 
Integer (exponent) 


Precision 

DP 

DP 


How Passed 

R5 

R6 


Units 


Output Results: 
Type 
Integer 


Precision 
DP 


How Passed 
R5 


Units 


Errors Detected: 
Error # 
4 


Cause 

Zero raised to c 


ower < 


Fixup 
Return 



Comments: 

Except for Error 4, no range or overflow checking is performed. 
Registers Unsafe Across Call: R5 
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Algorithm: 

Shift all halfwords to convert to fullwords. Let B = base, I = exponent. 

Write l= Z to ej2' where ej = 1 for each i. Then: 

B 1 =rijB e j 2 = n e=1 B 2 if some ej = 1 , and = 1 otherwise. 

The product n e=1 B 2 is computed in a loop. Each time around the loop, B 2k is 

multiplied by itself to give B 2k+1 . The k+1-st bit is shifted out of the exponent and 

tested. If it is 1 , the partial result is multiplied by B 2k +1 . If not, the partial result is 

left as is. When the remaining exponent is 0, the result is E 1 and the exit is taken 
from the loop. The answer is stored in ARG5 to be available after registers are 
restored. 
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X 



IPWRI 
Secondary Entry Name: IPWRH 
Function: Computes double precision integer to positive single precision integer power. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

arg 1 ** arg 2, where arg 1 is a double precision integer 

variable, and arg 2 is a positive single 
precision integer literal. A literal 
which has a magnitude between and 
32,767 is considered to be a single 
precision 

Other Library Modules: 



Execution Time (microseconds): Same as for IPWRI, except k = 46.6. 
Input Arguments: 



Type Precision 

Integer (base) 
Integer (exponent) 

Output Results: 
Type 
Integer DP 

Errors Detected: 
Error # 
4 



How Passed 



Units 



DP 


R5 


- 


SP 


R6 


- 


Precision 


How Passed 


Units 



R5 



Fixup 
Return 



Cause 

Zero raised to power < 

Comments: 

Except for the detection of error 4 no range or overflow checking is performed. 
Registers Unsafe Across Call: R5 

Algorithm: 

See IPWRI. 
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X 



IPWRI 
Secondary Entry Name: HPWRH 
Function: Computes single precision integer to positive single precision integer power. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

arg 1 ** arg 2, where arg 1 is a double precision integer 
variable, and arg 2 is a positive single 
precision integer literal. A literal 
which has a magnitude between and 32,767 
is considered to be a single precision. 



Other Library Modules: 






Execution Time (microseconds): Same as for IPWRI, except k 


= 49.4. 


Input Arguments: 
Type 

Integer (base) 
Integer (exponent) 


Precision 

SP 

SP 


How Passed 

R5 

R6 


Units 


Output Results: 
Type 
Integer 


Precision 
SP 


How Passed 
R5 


Units 


Errors Detected: 
Error # 
4 


Cause 

Zero raised to 


power < 


Fixup 
Return 


Comments: 

Registers Unsafe Across Call: R5 






Migoninm. 

See IPWRI. 
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LOG 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: LOG Size of Code Area 80 Hw 
Stack Requirement: 18 Hw Data CSECT Size: _2 Hw 



Intrinsic x Procedure 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: LOG 

Function: Computes the natural log(X) in single precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

LOG(X), where X is a single precision scalar. 



X Other Library Modules: 

ASINH, ATANH, EPWRE, ACOSH 
Execution Time (microseconds): 140.5 

Input Arguments: 

Type Precision How Passed Units 

Scalar SP F0 

Output Results: 
Type Precision How Passed Units 

Scalar SP F0 

Errors Detected: 
Error # Cause Fixup 

7 Argument outside range X>0 For X<0, return LOG(|X|) 

For X = 0, return maximum negative 
floating point number 

Comments: 

Registers Unsafe Across Call: F0,FI,F2,F3,F4,F5. 

Algorithm: 

Write X = 1 6 P * 2' Q * M, where P and Q are integers, 0<Q<3, and 1/2<M<1 . P, Q, 

and M are found by fixed-point calculations. Let A = 1, B = 0, if M >-£ , and 

A = 1/2, B = 1 otherwise. 

Let Z=(M-A)/(M+A). Then log(X) = (4P-Q-B)log 2+ log((1+Z)/(1-Z)). 
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Log((1 +Z)/(1 -Z)) is computed by an approximation of the form: 

( RW 2 A 

w+w 



S-W< 

where W = 2Z, and the values of the constants are: 
R = X'408D8BC7' = 0.55291413 
S = X'416A298C = 6.6351437 
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SINH 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: SINH Size of Code Area 82 Hw 
Stack Requirement: 18 Hw Data CSECT Size: _2 Hw 



Intrinsic x Procedure 



Other Library Modules Referenced: EXP 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: SINH 

Function: Computes hyperbolic sine in single precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

SINH(X) where X is a single precision scalar. 
Other Library Modules: 



Execution Time (microseconds): 1 <|X|<1 .75366E+2: 235.6 

2.0394E-4 <|X|<1 : 80.7 
|X|<2.0394E-4: 40.0 

Input Arguments: 

Type Precision How Passed Units 

Scalar SP F0 

Output Results: 
Type Precision How Passed Units 

Scalar SP F0 

Errors Detected: 
Error # Cause Fixup 

9 Argument outside range: X|<1 75.366 Return maximum positive 

floating point number 

Comments: 

Registers Unsafe Across Call: F0,FI,F2,F3,F4,F5. 

Algorithm: 

If X<2.04E-4, then sinh(X) = X. If 2.04E-4<|X|<1, then sinh(X) is computed via a 
polynomial approximation. 
The form of the polynomial is: 

sinh(X) = X + C^ 3 + C 2 X 5 + C 3 X 7 
where the values of the constants are: 

C 1 = X'402AAAB8' = 0.1 6666734 
C 2 = X'3F221 E8C = 0.00832991 2 
C 3 = X'3DD5D8B3' = .2039399E-3 
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Otherwise, sinh(|X|) or cosh(|X|) is calculated using EXP. The number V, equal to 
0.4995050, is introduced to control rounding errors and the formula is as follows: 



sinh(X) = 



2v 



, (X+logv) 



.(X+logv) 



cosh(X) = 



2v 



, (X+logv) 



, (X+logv) 



the identities sinh(-X) = -sinh(X) and cosh(-X) = cosh(X) are used to recover sinh(X) 
and cosh(X) from sinh(|X|) and cosh(|X|). 
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SINH 



Secondary Entry Name: COSH 

Function: Computes hyperbolic cosine in single precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

COSH(X) where X is a single precision scalar. 
Other Library Modules: 



Execution Time (microseconds): 228.9 

Input Arguments: 

Type Precision How Passed Units 

Scalar SP F0 

Output Results: 
Type Precision How Passed Units 

Scalar SP F0 

Errors Detected: 
Error # Cause Fixup 

9 Argument outside range: |X|<1 75.366 Return maximum positive 

floating point number 

Comments: 

Registers Unsafe Across Call: F0,FI,F2,F3,F4,F5. 

Algorithm: 

See SINH Algorithm. 
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SNCS 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: SNCS Size of Code Area 122 

Stack Requirement:. 
Intrinsic 



Hw 



Hw 



Data CSECT Size: 
Procedure 



28 Hw 



x 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: SNCS 

Function: Computes sine(X) and cosine(X) in single precision. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

SIN(X) and COS (X) where X is a single precision scalar 

that is recognized as the same for 
both invocations. 



X 



Other Library Modules: 






Execution Time (microseconds): (TBD) 






Input Arguments: 








Type 


Precision 


How Passed 


Units 


Scalar 


SP 


F0 


Radians 


Output Results: 








Type 


Precision 


How Passed 


Units 


Scalar 


SP 


F0 


- 


Scalar (COS result) 


SP 


F2 


- 


Errors Detected: 








Error # 


Cause 




Fixup 

^2 
Return -^ 


8 


Argument outside range: 




|X|<7t*2 18 







Comments: 

For a very small number of input arguments, the SNCS routine will return results 

that are accurate to 5 significant decimal digits (instead of the 6 significant digits 

that are generally required for single precision routines). For most of the range of 

the SNCS routine, results are returned that are accurate to the 6 significant decimal 

digits. 

Called as a library by compiler: uses only fixed-point registers R1 and R3 which are 

restored at exit from an intrinsic. 

The value used in the routine for 7i*2 18 is hex'45C93E1 0=824289. 

Registers Unsafe Across Call: R2,R3,F0,FI,F2,F3,F4. 
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Algorithm: 



Let |X|* -=Q + R, Q an integer, 0<R<1 . Add 4 to Q if the sine is desired and X<0, 

K 

and add 2 to Q if the cosine is desired. Since sin (-x) = sin (x+7t), and cos 



(x) = sin 



— + x 

v2 j 



This reduces the problem of computing sin(x) for x>0. 



f % 



Since Q has been adjusted, it is only necessary to compute sin — * (Q + R) 

v 4 



71 



4 «V R > 



If Q = Q mod 8, then this is equal to sin 

The eight cases of this yield, through simple trigonometric identities: 

Q = 0: sin (r» 5 
u v 4 



1: cos 



(1-R 



2: cos (R* 5 
v 4 



3: sin 



(1-R 



4: -sin (R* 5 
v 4 



5: -cos 



(1-R 



6: -cos (R* - 
v 4 



7: -sin 



(1-R 



- 

4j 



- 

4j 



- 

4j 



Let R = R in octants 0, 2, 4, 6 and R = 1 -R in octants 1 , 3, 5, 7. 

We compute sin (R * j ) in octants 0, 3, 4, 7 and cos (R * j ) in octants 1 , 2, 5, 6, 

and negate the result in octants 4, 5, 6, 7. 
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Sin (R * j ) and cos(R * j ) are computed by polynomial approximations. 
The form of the approximation for sine is: 

sin (R * 5 ) = R^ao+a^o 2 +a 2 R 4 +a 3 Ro 6 ) 

where the values of the constants are: 

a = X'40C90FDB' = .7853981 9 

a 1 =X'C014ABBC =-.080745459 

a 2 = X'3EA32F62' = .0024900069 

a 3 = X'BD25B368' =-.000035943 
The form of the approximation for cosine is: 

cos (R * - ) = 1 +a 1 R 2 +a 2 Ro 4 +a 3 Ro 6 

where the values of the constants are: 

a 1 = XC04EF4EE' =-.30842483 
a 2 =X3F40ED0F =.0158510767 
a 3 =XBE14F17D' =-.000319570 
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SNCS 
Secondary Entry Name: COS 
Function: Computes cosine(X) in single precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

COS (X) , where X is a single precision scalar, 
Other Library Modules: 



Execution Time (microseconds): -n< X < k: 1 24.5 

X>7rorX<-7r: 123.6 

Input Arguments: 

Type Precision How Passed Units 

Scalar SP F0 Radians 

Output Results: 
Type Precision How Passed Units 

Scalar SP F0 

Errors Detected: 

Error # Cause Fixup 

72 
8 Argument outside range |X|<7i*2 18 Return -y 

Comments: 

For a very small number of input arguments, the COS routine will return results that 
are accurate to 5 significant decimal digits (instead of the 6 significant decimal 
digits that are generally required for single precision routines). For most of the 
range of the COS routine, results are returned that are accurate to 6 significant 
decimal digits. 

The value used in the routine for n * 2 18 is hex'45C93E10'=824289. 
Registers Unsafe Across Call: R2,R3, F0,FI, F2,F3,F4. 

Algorithm: 

See SNCS Algorithm. 
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SNCS 
Secondary Entry Name: SIN 
Function: Computes sine(X) in single precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

SIN(X), where X is a single precision scalar. 
Other Library Modules: 



Execution Time (microseconds): -n < X < n: 1 24.5 

X>7rorX<-7r: 123.6 

Input Arguments: 

Type Precision How Passed Units 

Scalar SP F0 Radians 

Output Results: 
Type Precision How Passed Units 

Scalar SP F0 

Errors Detected: 

Error # Cause Fixup 

V2 
8 Argument outside range |X|<7i*2 18 Return -y 

Comments: 

For a very small number of input arguments, the SIN routine will return results that 
are accurate to 5 significant digits (instead of the 6 significant decimal digits that 
are generally required for single precision routines). For most of the range of the 
SIN routine, results are returned that are accurate to 6 significant decimal digits. 
See SNCS comments. 

The value used in the routine for 7i*2 18 is hex'45C93E1 0=824289. 
Registers Unsafe Across Call: R2,R3, F0,FI, F2,F3,F4. 

Algorithm: 

See SNCS Algorithm. 
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SORT 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: SORT 


Size of Code Area 


48 


Hw 


Stack Requirement: Hw 


Data CSECT Size: 


14 


Hw 


x Intrinsic 


Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS 

Primary Entry Name: SORT 

Function: Computes square root in single precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

SQRT (X) , where X is a single precision scalar. 
Other Library Modules: 



x 



ACOS, ASINH, EPWRE, VV10S3, ACOSH 
Execution Time (microseconds): 88.3 

Input Arguments: 

Type Precision How Passed Units 

Scalar SP F0 

Output Results: 
Type Precision How Passed Units 

Scalar SP F0 

Errors Detected: 
Error # Cause Fixup 

5 Argument outside range: X>0 Return SQRT (|X|) 

Comments: 

Registers Unsafe Across Call: RI,R4,R5,R6,R7,F0,FI,F2,F3. 

Algorithm: 

Write X = 16 2PQ * M, where ^ <M<1. Then, Vx =16 p * 4~ Q *VM . This fact is 

16 



used to obtain a good first approximation to Vx by approximating VM by a 
hyperbolic approximation. The form of the approximation is, for Q=0 

M =a - — — — [ — + — is to avoid fixed-point overflow for large M] 



fr\ 



\^J 



+ 



W 



2 2 



\<^J 



where the calculations are done in fixed-point. 
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The values of the constants are: 

a = X'0IAE7D00' = 1 .681 5948 at bit 7 
b = X'FF5B02FI' = -1 .2889728 at bit 7 

§ = X'35CFC61 0' = 0.42040325 at bit 
2 

a b 

For Q = 1 , t and 7 are used instead of a and b. 

7 = X'006B9F40' = 0.4203987 at bit 7 



4 = XFFD6C0BD' 



-0.3222432 at bit 7 



The first approximation is improved with two passes of the Newton-Raphson 
iteration. The form of the first is: 



Y 1 = 



1 



Y ° 

1 n 



V '0 



The form of the second, to minimize truncation errors, is: 



Yo = 



Y 2 is returned as the answer. 



Y +Y 

10 



X_ 
Y1 



+ 



_X 

Y 
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TAN 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: TAN Size of Code Area 116 

Stack Requirement: 
Intrinsic 



Hw 



20 Hw 



Data CSECT Size: 
Procedure 



Hw 



x 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: TAN 

Function: Computes tangent in single precision. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

TAN(X), where X is a single precision scalar. 
Other Library Modules: 



X 



Execution Time (microseconds): 164.0 
Input Arguments: 



Type 


Precision 


How Passed 


Units 




Scalar 


SP 


F0 


Radians 




Output Results: 








Type 


Precision 


How Passed 


Units 




Scalar 


SP 


F0 


- 




Errors Detected: 








Error # 


Cause 




Fixup 




11 


Argument outside range: |X|<7t*2 18 


Return 1 




12 


Argument too close to singularity of 


Return 


maximum 




tangent function 




positive 
number 


floating point 



Comments: 

For a very small number of input arguments, the TAN routine will return results that 
are accurate to 5 significant decimal digits (instead of the 6 significant decimal 
digits that are generally required for single precision routines). For most of the 
range of the TAN routine, results are returned that are accurate to 6 significant 
decimal digits. 

The value used in the routine for 7i>2 18 is hex'45C93E10'«824289. 
Registers Unsafe Across Call: F0,FI,F2,F3,F4,F5. 
Algorithm: 



-=Q + R. 



Q an integer, 0<R<1. Give the characteristic of |X|*_ to 



Let |X| 

X'00000008' for later use as a comparand, to determine nearness of X to a 
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singularity. 




We have the following table: 


Q mod 4 


tan(X) 





tan(|X|) = tan (FU4) 


1 


tan(|X|) = cot((1-R).|) 


2 


tan(|X|) = -cot(R*|) 


3 


tan(|X|) = -tan((1-R)^) 



For Q mod 4 even, let w = R, and for Q mod 4 odd, let w = 1-R. If |W|<16" 3 , then 

w 2 
Q(W)=b . Compute two polynomials in w, as polynomials in u = — : 

P(w) = w (a + u) 
Q(w) = b + b-|U + b 2 u 2 

P(w) Q(w) 

then tan(w) = — -. - , cot(w) = v ' and the above table describes how tan(x) is 
Q(w) P(w) 

computed. Finally, tan(x) is computed using the identity tan(-x)=-tan(x). 
The values of the constants are: 

a = X'C1 875FDC =-8.4609032 

b = X'CIAC5D33' =-1 0.7727537 

bi = X'41 5B40FD' = 5.7033663 

b 2 = XC028C93' =-.1 5932077 

NOTE: When |x| is close to zero (|x|<10" 1 °), zero is returned, and not the value x. 
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TANH 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: TANH Size of Code Area 58 Hw 
Stack Requirement: 18 Hw Data CSECT Size: _0 Hw 



Intrinsic x Procedure 



Other Library Modules Referenced: EXP 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: TANH 

Function: Computes hyperbolic tangent in single precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

TANH(X), where X is a single precision scalar. 
Other Library Modules: 



Execution Time (microseconds): |X|<2.4414E-4: 38.2 

2.441 4E-4<|X|<7.0E-1 : 78.7 
7.0E-1 <|X|<9.01 1 : 224.4 
9.011<|X|: 42.4 

Input Arguments: 

Type Precision How Passed Units 

Scalar SP F0 

Output Results: 
Type Precision How Passed Units 

Scalar SP F0 

Errors Detected: 
Error # Cause Fixup 

None 

Comments: 

Registers Unsafe Across Call: F0,FI,F2,F3,F4,F5. 

Algorithm: 

If |X|>9.01 1 , return +1 or -1 , according to the sign of X. 
If 0.7<|X|<9.01 1 , then (using EXP), tanh(|X|)=1 -2/(1 +e 2 i x i). 

Restore sign with tanh(-X) = -tanh(X). For |X|<16" 3 , tanh(X) = X. For other values 

of X, 16" 3 <|X|<0.7, use a rational approximation where the values of the constants 
are: 

a = X'EF7EA70' =-.003782895 

b = X'C0D08756' =-.81 45651 1 

c = X'41 278C49' = 2.471 7498 
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6.3.3 Vector/Matrix Routine Descriptions 

This subsection presents a class of routines which deal with HAL/S vector/matrix 
operations. Some of the routines implement HAL/S language built-in functions while 
others implement HAL/S operators. 









MMODNP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: MMODNP 


Size of Code Area 




12 Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


x Intrinsic 


Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MMODNP 

Function: Moves a double precision scalar to all positions in an n x m partition 
of a double precision matrix. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 



X 



M 



A TO B , C TO D' 



= S; 



where M is a double precision matrix, and 
either or both of the 'TO' subscripts may 
be replaced by the 'AT' subscript under 
rules given by matrix types . 

Other Library Modules: 



Execution Time (microseconds): 6.8 + n(4.0 + 8.0m) 
Input Arguments: 



Type 


Precision 


How Passed 


Units 


Scalar(s) 


DP 


F0 


- 


Integer(n) 


SP 


R5 


- 


Integer(m) 


SP 


R6 


- 


Integer(outdel) 


SP 


R7 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Matrix(n,m) 


DP 


R1^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixuo 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R3, R4,R5,R6,F0,F1 , 
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Algorithm: 

Uses two nested loops: 

Outer loop selects row; 

Inner loop selects column and moves scalar to current row/column position. 

Upon exiting inner loop, 'outdel' is added to pointer to output matrix location. 
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MMOSNP 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: MMOSNP Size of Code Area 10 

Stack Requirement: 0_ Hw Data CSECT Size: J) Hw 

x I Intrinsic I (Procedure 



Hw 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MMOSNP 

Function: Fill an n x m partition of a single precision matrix with a single precision 
scalar. 

Invoked By: 
XH Compiler emitted code for HAL/S construct of the form: 



m a to b c to d = S; where M is a double precision matrix, and 

either or both of the 'TO' subscripts may 
be replaced by the 'AT' subscript under 
rules given by matrix types . 

Other Library Modules: 



Execution Time (microseconds): 6.4 + n(4.4 + 6.4m) 

Input Arguments: 
Type 
Scalar(s) 
Integer(n) 
Integer(m) 
Integer(outdel) 

Output Results: 
Type 
Matrix(n,m) 

Errors Detected: 
Error # 
None 



Precision 


How Passed 


Units 


SP 


F0 


- 


SP 


R5 


- 


SP 


R6 


- 


SP 


R7 


- 


Precision 


How Passed 


Units 


SP 


R1^0 th element 


- 



Cause 



Fixup 



Comments: 

Registers Unsafe Across Call: R1 ,R3, R4,R5,R6,R7,F0,F1 . 

Algorithm: 

Uses two nested loops, one on n; one on m; 

Inner loop selects row and column of result matrix and moves input scalar into 
location. At exit of inner loop, pointer to matrix element is incremented by outdel, 
new row is selected, and inner loop is executed again. 
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MM1DNP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: MM1 DNP 


Size of Code Area 




18 Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


x Intrinsic 


Procedure 






Other Library Modules Referenced: 


NONE 







X 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM1DNP 

Function: Moves a partition of a double precision matrix. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

M2=M1 A to b c to d where Ml and M2 are double precision 

matrices, and either or both of the 

M2 =M1 ; 'TO' subscripts may be replaced by the 

'AT' subscript under rules given by 
matrix types . 

Other Library Modules: 



Execution Time (microseconds): 10.8 +n(5.4 + 12.2m) for n x m matrix moved. 
Input Arguments: 



Type 




Precision 


How Passed 


Units 


Matrix(n,m) 




DP 


R2^ th element 


- 


Integer(n) 




SP 


R5 


- 


Integer(m) 




SP 


R6 


- 


lnteger(indel, o 


utdel) 


DP 


R7(indel in highest Hw, 
outdel in Low Hw) 


" 


Output Results: 










Type 




Precision 


How Passed 


Units 


Matrix(n,m) 




DP 


R1-» th element 


- 


Errors Detected 










Error # 




Cause Fixi 


IP 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3, R4,R5,R6,R7,F0,F1 ,F2. 
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Algorithm: 

Loops on # rows; 
Loops on # columns; 
Load and store current element pointed to by input/output pointers; 
Increment pointers to next row element; 
End column loop; 
Increment input pointer by indel; 
Increment output pointer by outdel; 
End row loop; 
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MM1SNP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: MM1SNP 


Size of Code Area 




16 Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


x Intrinsic 


Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM1SNP 

Function: Moves a partition of a single precision matrix. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

M2=M1 A T0 B(G T0 D where Ml and M2 are single 

matrices, 

M2 



X 



precision 
and either or both of the 'TO' 
=M1 • subscripts may be replaced by the 'AT' 
subscript under rules given for matrix 
types . 

Other Library Modules: 



-A TO B,C TO D" 



Execution Time (microseconds): 10.8 +n(5.4 + 9.4m) for n x m matrix. 
Input Arguments: 



Type 


Precision How Passed Units 


Matrix(n,m) 


SP 


R2^0 th element 


Integer(n) 


SP 


R5 


Integer(m) 


SP 


R6 


lnteger(indel, o 


utdel) DP 


R7 (high Hw=indel, Low Hw=outdel) - 


Output Results: 






Type 


Precision 


How Passed Units 


Matrix(n,m) 


SP 


R1^0 th element 


Errors Detected: 






Error # 


Cause 


Fixuo 



None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3, R4,R5,R6,R7,F0,F1 . 
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Algorithm: 

Loop on # rows; 
Loop on # columns; 

Load and store current element pointed to by input/output pointer; 
Increment pointers to next row; 
End column loop; 
Increment input pointer by indel; 
Increment output pointer by outdel; 
End row loop; 
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MM1TNP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: MM1TNP 


Size of Code Area 




16 Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


x Intrinsic 


Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS 
Primary Entry Name: MM1TNP 

Function: Moves a partition of a double precision matrix and stores it as a single 
precision matrix. 

Invoked By: 
X~~| Compiler emitted code for HAL/S construct of the form: 



M2=M1 



A TO B , C TO D 



M2 



A TO B,C TO D : 



=M1 



where M2 is a single precision matrix, 
and Ml is a double precision matrix. 
Both or either of the 'TO' subscripts 
may be replaced by the 'AT' subscript 
under rules given for matrix types . 

Other Library Modules: 

Execution Time (microseconds): 10.4 + n(5.8 + 10.6m) for n x m move. 

Input Arguments: 



Type 


Precision 


How Passed 


Units 


Matrix(n,m) 


DP 


R2^0 th element 


- 


Integer(n) 


SP 


R5 


- 


Integer(m) 


SP 


R6 


- 


lnteger(indel,outdel) 


SP 


R7 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Matrix(n,m) 


SP 


R1^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixup 




None 









Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,R6,R7,F0,F1 ,F2. 
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Algorithm: 

Loops on # rows; 
Loops on # columns; 
Load long input element pointed to by input pointer; 
Store short into output element pointed to by output pointer; 
Increment pointer to next element; 
End column loops; 
Increment input pointer by indel; 
Increment output pointer by outdel; 
End row loop; 
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MM1WNP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: MM1WNP 


Size of Code Area 




18 Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


x Intrinsic 


Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM1WNP 

Function: Moves a partition of a single precision matrix and stores it as a double 
precision matrix. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 



X 



M2=M1 



A TO B,C TO D 



M2 A TO B,C TO D _M1 ■ 



where Ml is a single precision matrix. 
M2 is a double precision matrix. Both 
or either of the 'TO' subscripts may be 
replaced by the 'AT' subscripts under 
rules given for matrix types . 

Other Library Modules: 

Execution Time (microseconds): 13.6 + n(5.0 + 11.0m) for n x m move. 

Input Arguments: 



Type 


Precision 


How Passed 


Units 


Matrix(n,m) 


SP 


R2^0 th element 


- 


Integer(n) 


SP 


R5 


- 


Integer(m) 


SP 


R6 


- 


lnteger(indel,outdel) 


SP 


R7 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Matrix(n,m) 


DP 


R1^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixup 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3, R4,R5,R6,R7,F0,F1 ,F2. 
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Algorithm: 

Clears lower half of floating point register pair. 
Loops on # rows; 

Loops on # columns; 
Load short input element pointed to by input pointer; 
Store long (with zeroed second word) into output element pointer; 
Increment pointers to next row element; 
End column loop; 
Increment input pointer by indel; 
Increment output pointer by outdel; 
End row loop; 
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MM6DN 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: MM6DN Size of Code Area 42 

Stack Requirement: 0_ Hw Data CSECT Size: J) Hw 

x I Intrinsic I (Procedure 



Hw 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM6DN 

Function: Multiplies two double precision matrices. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 



X 



Ml M2 , where Ml is a m x n double precision matrix) 

M2 is a n x £ double precision matrixj m,n I t- 3 ; 

Other Library Modules: 



Execution Time (microseconds) 


: 22.2 + m(1 0.8 + £ 


(21 


.2 + 27.2n)) 


Input Arguments: 










Type 


Precision 


How Passed 




Units 


Matrix(m,n) 


DP 


R2^0 th element 




- 


Matrix(n,f) 


DP 


R3->0 th element 




- 


Integer(m) 


SP 


R5 




- 


Integer(n) 


SP 


R6 




- 


Integer(f) 


SP 


R7 




- 


Output Results: 










Type 


Precision 


How Passed 




Units 


Matrix(rrU) 


DP 


R1^0 th element 




- 


Errors Detected: 










Error # 


Cause 


Fixuo 







None 



Comments: 

Registers Unsafe Across Call: R1 ,R2,R3, R4,R5,R6,R7,F0,F1 ,F2,F3 F4,F5. 

Algorithm: 

Uses 3 loops: 

Innermost (on n) multiplies a row of M1 by a column of M2; 
The second loop (on £) resets the column pointer; 
The outer loop (on m) resets the row pointer. 
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MM6D3 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: MM6D3 Size of Code Area 32 

Stack Requirement: 0_ Hw Data CSECT Size: J) Hw 

x I Intrinsic I (Procedure 



Hw 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM6D3 

Function: Multiplies two 3x3 double precision matrices. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

Ml M2, where Ml and M2 are double precision 3x3 
matrices . 

Other Library Modules: 



Execution Time (microseconds): 671.6 

Precision How Passed 



Input Arguments: 
Type 
Matrix(M1) 

Matrix(M2) 



Units 



DP 
DP 



R2^0 th element 
R3^0 th element 



DP 
Cause 



R1^0 th element 
Fixup 



Output Results: 
Type Precision How Passed Units 

Matrix(3,3) 

Errors Detected: 
Error # 
None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3, R4,R5,R6,R7, F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Explicitly multiplies row by column, element by element. Uses BCTB to advance to 
each new column, and BCTB to advance to each new row. 
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MM6SN 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: MM6SN Size of Code Area 40 Hw 

Stack Requirement: 0_ Hw Data CSECT Size: J) Hw 

x I Intrinsic I (Procedure 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM6SN 

Function: Multiplies two single precision matrices. 

Invoked By 

Compiler emitted code for HAL/S construct of the form: 

Ml M2 , where Ml is a m x n double precision matrix) 

M2 is a n x £ double precision matrix] m,n 



X 



* 3; 



Other Library Modules: 
Execution Time (microseconds): 22.2 + m(10.8 + I (20.2 + 18.0n)) 
Input Arguments: 



Type 


Precision 


How Passed 


Units 


Matrix(m,n) 


SP 


R2^0 th element 


- 


Matrix(rU) 


SP 


R3->0 th element 


- 


Integer(m) 


SP 


R5 


- 


Integer(n) 


SP 


R6 


- 


Integer(f) 


SP 


R7 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Matrix(rrU) 


SP 


R1^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixup 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,R6,R7,F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Same as MM6DN. 
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MM6S3 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: MM6S3 Size of Code Area 24 Hw 



Stack Requirement: Hw 
x I Intrinsic 



Data CSECT Size: Hw 
Procedure 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM6S3 

Function: Multiplies two 3x3 single precision matrices. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

Ml M2 , where Ml and M2 are 3x3 single precision 
matrices . 

Other Library Modules: 



Execution Time (microseconds): 409.6 



Input Arguments: 








Type 


Precision 


How Passed 


Units 


Matrix(M1) 


SP 


R2->0 th element 


- 


Matrix(M2) 


SP 


R3->0 th element 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Matrix(3,3) 


SP 


R1^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixup 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3, R4,R5,R6,R7,F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Same as MM6D3, except the matrices are single precision. 
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MM11DN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: MM11DN 


Size of Code Area 




16 Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


x Intrinsic 


Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM11DN 

Function: Transposes an n x m double precision matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

T 



TRANSPOSE (M) or M 1 



where M is an n x m double precision 
matrix and m and/or n ^ 3 . 



Other Library Modules: 



Execution Time (microseconds): 8.0 + m(5.8 + 12.2n) 
Input Arguments: 



Type 


Precision 


How Passed 


Units 


Matrix(n,m) 


DP 


R2->0 th element 


- 


Integer 


SP 


R5 


- 


Integer 


SP 


R6 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Matrix(m,n) 


DP 


R1^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixup 




None 









Comments: 

Registers Unsafe Across Call: R1 ,R2,R3, R4,R5,R6,R7,F0,F1 ,F2. 

Algorithm: 

Uses two nested loops: 

Outer loop selects column of input matrix; 

Inner loop moves elements of selected column to corresponding row of result 

matrix. 
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MM11D3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: MM11D3 


Size of Code Area 




22 Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


x Intrinsic 


Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM11D3 

Function: Performs transpose of 3 x 3 double precision matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

TRANSPOSE (M) or M T where M is a 3 x 3 double precision 

matrix. 



Other Library Modules: 



Execution Time (microseconds): 93.6 
Input Arguments: 



Type 
Matrix(3,3) 

Output Results: 
Type 
Matrix(3,3) 

Errors Detected: 
Error # 
None 



Precision How Passed 

DP R2^0 th element 

Precision How Passed 

DP R1^0 th element 

Cause Fixup 



Units 



Units 



Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,R5,F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Uses loop to load elements of one column into registers, then store into row 
elements of resultant for each pass through the loop. 
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MM11SN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: MM11SN 


Size of Code Area 




16 Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


x Intrinsic 


Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM11SN 

Function: Transpose an n x m single precision matrix. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 



X 



TRANSPOSE (M) or M where M is an n x m single precision 



matrix and m and/or n ^ 3 . 



Other Library Modules: 



Execution Time (microseconds): 8.4 + m(5.8 + 9.4n) 



Input Arguments: 








Type 


Precision 


How Passed 


Units 


Matrix(n,m) 


SP 


R2->0 th element 


- 


lnteger(#rows=n) 


SP 


R5 


- 


lnteger(#columns=m) 


SP 


R6 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Matrix(m,n) 


SP 


R1^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixup 




None 









Comments: 

Registers Unsafe Across Call: R1 ,R2,R3, R4,R5,R6,R7,F0,F1 . 

Algorithm: 

Uses two nested loops: 

Outer loop selects which column of input matrix to use; 

Inner loop loads and stores column elements as row elements of result. 
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MM11S3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: MM11S3 


Size of Code Area 




18 Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


x Intrinsic 


Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM11S3 

Function: Performs transpose of 3 x 3 single precision matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

TRANSPOSE (M) or M T where M is a 3 x 3 single precision 



matrix. 



Other Library Modules: 



Execution Time (microseconds): 71.8 

Precision How Passed 



Input Arguments: 
Type 
Matrix(3,3) 



Units 



SP R2^0 th element 

Precision How Passed 



SP 
Cause 



R1^0 th element 
Fixup 



Output Results: 
Type Precision How Passed Units 

Matrix(3,3) 

Errors Detected: 
Error # 
None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,R5,F0,F1 ,F2. 

Algorithm: 

Uses loop to load F0, F1 , F2 with columns of input matrix and store them as rows of 
output matrix for columns 1 -» 3, rows 1 -> 3. 
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MM12DN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: MM12DN 


Size of Code Area 




164 Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


Intrinsic 


x Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM12DN 

Function: Find the determinant of an n x n double precision matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

DET (M) , where M is an n x n, double precision matrix, 
and n £ 3 . 

Other Library Modules: 



Execution Time (microseconds): for n=2: 63.2 

for n>4: 

n-1 

minimum time = 59.4 + 1 0.2n 2 + I ( 54 - 8k2 + 81 .2k + 1 1 5.6) 

k= 1 



n-1 
maximum time = 59.4 + io.2n2 + I (60.2k 2 + 134.8k + 169.0 + 3.6n) 

k= 1 

See MM1 2SN LRD for a description of maximum time vs. minimum time. 
Input Arguments: 



Type 


Precision 


How Passed 


Units 


Matrix(n,n) 


DP 


R2^0 th element 


- 


Matrix(n,n) workarea 


DP 


R4 


- 


Integer(n) 


SP 


R5 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Scalar 


DP 


F0 


- 


Errors Detected: 








Error # 


Cause 


Fixup 




None 
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Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 
Algorithm: 

Same as MM12SN. 
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MM12D3 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: MM12D3 Size of Code Area 44 Hw 



Stack Requirement: 18 Hw 
Intrinsic 



Data CSECT Size: Hw 
x I Procedure 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM12D3 

Function: Find the determinant of a 3 x 3 double precision matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

DET (M) , where M is a double precision 3x3 matrix. 



X Other Library Modules: 



MM14D3 

Execution Time (microseconds): 

Input Arguments: 
Type 
Matrix(3,3) 



Precision How Passed 



DP 



Units 



R2^0 th element 



Output Results: 
Type Precision How Passed Units 

Scalar DP F0 

Errors Detected: 
Error # Cause Fixup 

None 

Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

For singular matrices, an expected value of may not be returned due to lost 

precision. 

Also, exponent overflow range checking is not performed. 

Algorithm: 

Uses direct code, no loops to calculate determinant. See algorithm for MM12S3. 
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MM12SN 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: MM12SN Size of Code Area 138 Hw 



Stack Requirement: 20 Hw 
Intrinsic 



Data CSECT Size: Hw 
x I Procedure 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM12SN 

Function: Find the determinant of an n x n single precision matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

DET (M) , where M is a n x n single precision matrix, and 
n * 3 . 

Other Library Modules: 



Execution Time (microseconds): for n=2: 44.4 

for n>4: 

n-1 
minimumtime = 47.8 + 7.8n 2 + £ (37.6k 2 + 64.6k + 85.8) 

k= 11 

n-1 

maximum time = 47.8 + 7.8n 2 + £ (41 -6k 2 + 105.8k + 3.6n; 

k = 11 

The minimum time occurs in the event that all matrix elements are positive and where 
no row or column switching is required at any point of the computation. 
The maximum time occurs in the event that all matrix elements require 
complementing to obtain their absolute value, BIG changes on every comparison, 
and row and column switching are required at every point in the computation. 

Input Arguments: 



Type 


Precision 


How Passed 


Units 


Matrix(n,n) 


SP 


R2^0 th element 


- 


Matrix(n,n) workarea 


SP 


R4 


- 


Integer(n) 


SP 


R5 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Scalar 


SP 


F0 


- 
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Errors Detected: 
Error # 



Cause 



Fixup 



find maximal element 



None 

Comments: 

Registers Unsafe Across Call: F0.F1 ,F2,F3,F4,F5. 

Algorithm: 

DET =1.0 1 

FOR K = 1 TO Nl DO 
BIG = 
II = Jl = K 
FOR I = K TO N DO 

FOR J = K TO N DO 

IF ABS (A (I, J) ) >BIG THEN DO 
BIG = ABS (A (I, J) ) ; 
II = I; 
Jl = J; 
END 
END 
END 

IF II # K THEN DO 
DET = -DET 

FOR J = K TO N SWITCH (A (II, J) ,A(K, J) ) switch TOWS 

END 

IF Jl ^ K THEN DO 
DET = -DET 

FOR I = K TO N SWITCH (A ( I, Jl) ,A(J,K) ) ; switch columns 
END 

det = det*a(k,k) product of diagonal element 

FOR I = K + 1 TO N DO 

tempi = -a(i,k) /a(k,k) reduce 

FOR J = K + 1 TO N DO 

A(I,J) = A(I,J) + A(K,J) * TEMPI 
END 
END 
END 

det = det*a(n,n) last diagonal element 

If dim = 2, then special case: 

DET = A(l, 1) *A(2,2) -A(l,2) *A(2, 1) 
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MM12S3 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: MM12S3 Size of Code Area 26 

Stack Requirement: 
Intrinsic 



Hw 



18 Hw 



Data CSECT Size: 
Procedure 



Hw 



x 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM12S3 

Function: Find the determinant of a single precision 3x3 matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

DET (M) , where M is a single precision 3x3 matrix. 



X Other Library Modules: 



MM14S3 

Execution Time (microseconds): 116.0 

Input Arguments: 

Type Precision How Passed 

Matrix(3,3) SP R2^0 th element 



Output Results: 
Type Precision 

Scalar SP 



Errors Detected: 
Error # 
None 



Cause 



How Passed 
F0 



Fixup 



Units 



Units 



Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Uses direct inline code to calculate 
det = M11 M 22 M 33 + M 12 M 23 M 31 + M 13 M 21 M 32 
- M31 M 22 M 13 - M 32 M 23 M11 - M 33 M 21 M 12 
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MM13DN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: MM13DN 


Size of Code Area 




10 Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


x Intrinsic 


Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM13DN 

Function: Calculates TRACE of an n x n double precision matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

TRACE (M) , where M is an n x n double precision matrix, 
and n £ 3 . 

Other Library Modules: 



Execution Time (microseconds): 12.0 + 10. 2n 
Input Arguments: 



Type 


Precision 


How Passed 


Units 


Matrix(n,n) 


DP 


R2->0 th element 


- 


Integer(n) 


SP 


R5 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Scalar 


DP 


F0 


- 


Errors Detected: 








Error # 


Cause 


Fixup 




None 









Comments: 

Registers Unsafe Across Call: R2,R4,R5,R6,F0,F1. 

Algorithm: 

Creates a skip value of n+1 ; Uses loop counting down n-1 to zero, each pass 
summing a diagonal element of the matrix by using the skip value to increment 
from the previous diagonal element. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: MM1 3D3 Size of Code Area 
Stack Requirement: Hw Data CSECT Size: 

x Intrinsic Procedure 
Other Library Modules Referenced: NONE 


MM13D3 

8 Hw 
Hw 




ENTRY POINT DESCRIPTIONS 








Primary Entry Name: MM13D3 

Function: Calculates TRACE of a 3 x 3 double precision matrix. 




Invoked By: 
X Compiler emitted code for HAL/S construct of the form: 




TRACE (M) , where M is a 3 x 


3 double precision 


matrix. 


Other Library Modules: 






Execution Time (microseconds): 19.8 






Input Arguments: 
Type Precision 
Matrix(3,3) DP 


How Passed 
R2->0 th element 


Units 


Output Results: 
Type Precision 
Scalar DP 


How Passed 
FO 


Units 


Errors Detected: 
Error # Cause 
None 


Fixup 




Comments: 






Registers Unsafe Across Call: R2,R4,F0,F1 . 




Algorithm: 

Direct code, no loops to calculate M 


1 1 + M 22 + M 33 . 
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MM13SN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: MM13SN 


Size of Code Area 




8 Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


x Intrinsic 


Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM13SN 

Function: Calculates TRACE of an n x n single precision matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

TRACE (M) , where M is a single precision n x n matrix, 
n * 3 . 

Other Library Modules: 



Execution Time (microseconds): 8.8 + 6.2n 

Input Arguments: 
Type 
Matrix(n,n) 



Precision 



How Passed 



Units 



Integer(n) 

Output Results: 
Type 
Scalar 

Errors Detected: 
Error # 
None 



SP 
SP 

Precision 
SP 

Cause 



R2^0 th element 
R5 

How Passed 
F0 

Fixup 



Units 



Comments: 

Registers Unsafe Across Call: R2,R4,R5,R6,F0. 

Algorithm: 

Creates a skip value of n+1 ; uses loop counting down n-1 to zero, each pass 
summing a diagonal element of the matrix by using the skip value to increment 
from the previous diagonal element. 
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MM13S3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: MM13S3 


Size of Code Area 




4 Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


x Intrinsic 


Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM13S3 

Function: Calculates TRACE of a 3 x 3 single precision matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

TRACE (M) , where M is a 3 x 3 single precision 
matrix. 

Other Library Modules: 



Execution Time (microseconds): 9.8 



Input Arguments: 
Type 
Matrix(3,3) 


Precision 
SP 


How Passed 
R2->0 th element 


Output Results: 
Type 
Scalar 


Precision 
SP 


How Passed 
F0 


Errors Detected: 
Error # 
None 


Cause 


Fixup 


Comments: 






Registers Unsafe Across Call 


R2,R4,F0. 


Algorithm. 

Straight code to calculate M^ + M 2 2 + M 33 . 



Units 



Units 
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MM14DN 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: MM14DN Size of Code Area 288 Hw 

Stack Requirement: 28 Hw Data CSECT Size: _2_ Hw 

Intrinsic I x I Procedure 



Other Library Modules Referenced: MM15DN 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM14DN 

Function: Inverts an n x n double precision matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

M _1 or INVERSE (M) , where M is an n x n double precision 

matrix, n ^ 3 . 

Other Library Modules: 



Execution Time (microseconds): for n=2: 173.8, 

for n>4: 63.0 + 129.5n + 43.0n 2 + 65.4n 3 



Input Arguments: 








Type 


Precision 


How Passed 


Units 


Matrix(n,n) 


DP 


R4^0 th 
element 


- 


Integer(n) 


SP 


R5 


- 


Matrix(n,n) workarea 


DP 


R7 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Matrix 


DP 


R2^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixuo 





27 Singular matrix Return identity matrix 

Comments: 

Registers Unsafe Across Call: F0.F1 ,F2,F3,F4,F5. 

Algorithm: 

Same as MM14SN, except that pivot element divide operation is done by 
multiplying by reciprocal to save time over use of long divide instruction. 
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MM14D3 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: MM14D3 Size of Code Area 144 

Stack Requirement:. 
Intrinsic 



Hw 



26 Hw 



Data CSECT Size: 
Procedure 



2 Hw 



x 



Other Library Modules Referenced: MM12D3.MM15DN 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM14D3 

Function: Inverts a 3 x 3 double precision matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 



M" 1 or INVERSE (M), where M 

matrix. 

Other Library Modules: 



is a 3 x 3 double precision 



Execution Time (microseconds): 795.4 

Input Arguments: 

Type Precision How Passed 

Matrix(3,3) DP 



Units 



R4^0 th element 



Precision 
DP 



Cause 



How Passed 
R2^0 th element 



Attempted inverse of singular matrix 



Units 



Fixup 

Return identity matrix 



Output Results: 
Type 
Matrix(3,3) 

Errors Detected: 
Error # 
27 

Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

For singular matrices, the identity matrix and error message may not be returned 
due to lost precision in calculating the determinant (refer to MM12D3). A small 
determinant value could result in exponent overflow during the '1 /determinant' 
calculation. Exponent overflow range checking is not performed. 

Algorithm: 

Explicit code, no loops; algorithm same as MM14S3 except that external routines 
used are MM12D3 and MM15DN. 
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MM14SN 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: MM14SN Size of Code Area 246 Hw 

Stack Requirement: 20 Hw Data CSECT Size: _2_ Hw 

Intrinsic I x I Procedure 



Other Library Modules Referenced: MM15SN 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM14SN 

Function: Inverts a single precision n x n matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

M _1 or INVERSE (M) , where M is a single precision n x n 

matrix, n ^ 3 . 

Other Library Modules: 



Execution Time (microseconds): for n=2: 107.6, 

for n>4: 52.0 + 39.2n + 10.5n 2 + 54.6n 3 



Input Arguments: 








Type 


Precision 


How Passed 


Units 


Matrix(n,n) 


SP 


R4^0 th element 


- 


Integer(n) 


SP 


R5 


- 


Matrix(n,n) workarea 


SP 


R7 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Matrix(n,n) 


SP 


R2^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixuo 





Matrix is singular Return identity matrix 



27 

Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

For K = 1 , N 

find maximal element in row K to n, columns K to n 

save it as 'BIG' pivot element 

save its row # as ISW(K) 

save its column # as JSW(K) 

switch K th and ISW(K) th row 

switch K th and JSW(K) th column 
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divide K th column except for K th element by - BIG 
reduce matrix 

divide K th row except for K th element by BIG 
replace pivot by reciprocal 

DOK=N-1,1 

interchange JSW(K) th and K th rows 
interchange ISW(K) th and K th columns. 
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MM14S3 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: MM14S3 Size of Code Area 80 Hw 

Stack Requirement: 18 Hw Data CSECT Size: _2_ Hw 



Intrinsic x Procedure 



Other Library Modules Referenced: MM12S3.MM15SN 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM14S3 

Function: Inverts a 3 x 3 single precision matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

M" 1 or INVERSE (M) , where M is a 3 x 3 single precision 

matrix. 

Other Library Modules: 



Execution Time (microseconds): 458.8 

Input Arguments: 

Type Precision How Passed Units 

Matrix(3,3) SP R4^0 th element 

Output Results: 
Type Precision How Passed Units 

Matrix(3,3) SP R2^0 th element 

Errors Detected: 
Error # Cause Fixup 

27 Attempted inverse of singular matrix Return an identity 

matrix 

Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Explicit code, no loops to calculate: 

inverse M = A , where adjMy = detMj^j^ and |M|=detM 

uses external determinant routine (MM12S3) and in event of determinant of zero, 
calls identity matrix routine (MM15SN). 
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MM15DN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name:MM15DN 


Size of Code Area 


18 


Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


X Intrinsic 


Procedure 






Other Library Modules Referenced 


: None 







ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM15DN 
Function: Creates an n x n double precision identity matrix. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 



X 



M L 



where M is an n x n double precision matrix. 



X Other Library Modules: 



MM14DN, MM14D3 

Execution Time (microseconds): 15.6 + 5. On + 11. 2n 2 

Input Arguments: 



Type 


Precision 


How Passed 


Units 


Integer(n) 


SP 


R5 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Matrix(n,n) 


DP 


R1^0 th 
element 


" 


Errors Detected: 








Error # 


Cause 


Fixup 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R4,R5,R6,R7,F0,F1 ,F2,F3. 

Algorithm: 

Uses two nested loops, each counting 1 to n. 

Inner loop compares both loop indices; if equal, stores 1.0 at current row/column 

position; otherwise stores 0.0. 
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MM15SN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: MM15SN 


Size of Code Area 




14 


Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


X Intrinsic 


Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM15SN 
Function: Creates an n x n identity matrix. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 



X 



M L 



where M is a single precision n x n matrix. 



X Other Library Modules: 



MM14SN, MM14S3 

Execution Time (microseconds): 10.0 + 5.2n + 9.6n 2 

Input Arguments: 

Precision How Passed 



Units 



SP 



R5 



Precision How Passed 



Units 



SP 



Cause 



R1^0 th element 
Fixup 



Type 
Integer(n) 

Output Results: 
Type 
Matrix(n,n) 

Errors Detected: 
Error # 
None 

Comments: 

Registers Unsafe Across Call: R1 ,R4,R5,R6,R7,F0,F2. 

Algorithm: 

Uses two nested loops, each counting 1 to n. 

Inner loop checks both loop indices; if equal, stores 1.0 at current row/column 

position; otherwise stores 0.0. 
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MM17D3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: MM17D3 


Size of Code Area 




80 


Hw 


Stack Requirement: 20 Hw 


Data CSECT Size: 





Hw 


Intrinsic 


X Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM17D3 

Function: Raises a 3 x 3 double precision matrix to a power. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 



M 1 



where M is a 3 x 3 double precision matrix and I is 



an integer literal >1 . 
Other Library Modules: 



Execution Time (microseconds): 

Exponent=2: 991.6 

Exponent>2: 1071 .2 * (# of significant zeros in exponent) 

+2137.2 * (# of ones in exponent) 
-2105.8 



Input Arguments: 






Type 


Precision 


How Passed Units 


Matrix(3x3) 


DP 


R4^0 th element " 


Integer(power) 


SP 


R6 


Matrix(3,3) workarea 


DP 


R7 


Output Results: 






Type 


Precision 


How Passed Units 


Matrix(3,3) 


DP 


R2^0 th element " 


Errors Detected: 






Error # 


Cause 


Fixup 


None 






Comments: 






Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 


Algorithm: 






Loads R5 with literal 3 and drops in 


MM17DNcode. 
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MM17D3 



Secondary Entry Name: MM17DN 

Function: Raises an n x n double precision matrix to a power. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

M 1 , where M is an n x n double precision matrix and I 

is an integer literal >1 . 
Other Library Modules: 



Execution Time (microseconds): 

27.8n 3 + 19.4n 2 + 6.2n + 43.4 if power = 2. 

124.2 + TMULT(KA) + TMOVE(KA-I) + 8.6KB + 3.4 KC if power>2. 
where: 
TMULT = 9.6 + 6.2n + 19.4n 2 + 27.8n 3 



KA 
TMOVE 

KB 
KC 



(((# significant 1s in exponent)-1)*2) + (# of significant 0s in exponent) 

10.2 + 11. On 2 

total number of significant 1s and 0s in exponent 

# of significant 1s in exponent. 



Precision How Passed 



DP 

SP 
SP 
DP 



R4^0 th element 

R5 

R6 

R7 



Precision How Passed 



Input Arguments: 

Matrix(n,n) 

Integer(n) 
Integer(power) 
Matrix(n,n) workarea 

Output Results: 
Type 
Matrix(n,n) 

Errors Detected: 
Error # 
None 

Comments: 

Registers Unsafe Across Call: F0.F1 ,F2,F3,F4,F5. 

Algorithm: 

Same as MM17SN. 



Units 



Units 



DP 



Cause 



R2^0 th element 
Fixup 
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MM17S3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: MM17S3 


Size of Code Area 




78 


Hw 


Stack Requirement: 20 Hw 


Data CSECT Size: 





Hw 


Intrinsic 


X Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MM17S3 

Function: Raises a 3 x 3 single precision matrix to a power. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 



M 



where M is a 3 x 3 single precision matrix and I is 
an integer literal >1 . 

Other Library Modules: 



Execution Time (microseconds): 
Exponent=2: 623.6 
Exponent>2: 681 .6 * (# significant zeros in exponent) 

+1358.0 * (# ones in exponent) 

-1305.0 



Precision How Passed 



SP 

SP 
SP 



R4^0 th element 

R6 

R7 



Precision How Passed 



Input Arguments: 
Type 
Matrix(3x3) 

Integer(power) 
Matrix(3,3) workarea 

Output Results: 
Type 
Matrix(3,3) 

Errors Detected: 
Error # 
None 

Comments: 

Registers Unsafe Across Call: F0,F2,F3,F4,F5. 

Algorithm: 

Loads R5 with literal 3 and drops into MM17SN code. 



Units 



Units 



SP 



Cause 



R2^0 th element 
Fixup 
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MM17S3 



Secondary Entry Name: MM17SN 

Function: Raises an n x n single precision matrix to a power. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

M 1 , where M is a n x n single precision matrix and I is 
an integer literal >1 . 

Other Library Modules: 



Execution Time (microseconds): 

if power=2: then 15.6n 3 + 15.2n 2 + 5.8n + 43.8 
if power>2: same as in MM17DN except 

TMULT = 1 0.0 + 5.8n + 1 5.2n 2 + 1 5.6n 3 
TMOVE = 10.2 + 8.6n 2 
Input Arguments: 



Type 


Precision 


How Passed Units 


Matrix(n,n) 


SP 


R4^0 th element " 


Integer(n) 


SP 


R5 


Integer(power) 


SP 


R6 


Matrix (n,n)workareas 


SP 


R7 


Output Results: 






Type 


Precision 


How Passed Units 


Matrix(n,n) 


SP 


R2^0 th element " 


Errors Detected: 






Error # 


Cause 


Fixup 



None 
Comments: 

Registers Unsafe Across Call: F0,F2,F3,F4,F5. 
Algorithm: 

Let A = original matrix, R = result matrix, T = temporary matrix. 

1. R = AA 

2. locate first one bit in exponent, remove it, remember bit position 

3. go to step 6 

4. T = R 

5. R = TT 

6. Remove exponent bit at current position, increment position. If bit was go to 
step 9. 

7. T=R 

8. R = TA 

9. If any bits left in exponent, go to step 4, otherwise R is complete. 
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MV6DN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: MV6DN 


Size of Code Area 




24 


Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 




X Intrinsic 


Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MV6DN 

Function: Multiplies a double precision m x n matrix by a length n double precision 
vector. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 



M V, 



where M is a double precision m x n matrix, V is 
a length n double precision vector, and m and/or 
n * 3 . 



Other Library Modules: 






Execution Time (microseconds): 






Input Arguments: 
Type 


Precision 


How Passed 


Units 


Matrix(m,n) 


DP 


R2^0 th element 


- 


Vector(n) 


DP 


R3->0 th element 


- 


Integer(m) 
Integer(n) 


SP 
SP 


R5 
R6 


- 


Output Results: 
Type 


Precision 


How Passed 


Units 


Vector(m) 


DP 


R1^0 th element 


- 


Errors Detected: 
Error # 
None 


Cause 


Fixup 





Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,R6,R7,F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Uses 2 nested loops, outer loop selecting rows of matrix, inner loop summing 
products of vector elements with current row elements. 
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MV6D3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: MV6D3 


Size of Code Area 




24 


Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 




X Intrinsic 


Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MV6D3 

Function: Multiplies a double precision 3x3 matrix by a length 3 double precision 
vector. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

M V, where M is a double precision 3x3 matrix and V is 
a double precision length 3 vector. 

Other Library Modules: 



Execution Time (microseconds): 304.4 

Input Arguments: 

Type Precision How Passed Units 

Matrix(3,3) DP R2^0 th element 

Vector(3) DP R3^0 th element 

Output Results: 
Type Precision How Passed Units 

Vector(3) DP R1^0 th element 

Errors Detected: 
Error # Cause Fixup 

None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,R6,R7,F0,F1 ,F2,F3. 

Algorithm: 

Uses 2 nested loops, outer loop selecting rows of matrix, inner loop summing 
products of vector elements with current row elements. 
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MV6SN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: MV6SN 


Size of Code Area 




18 


Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 




X Intrinsic 


Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MV6SN 

Function: Multiplies a single precision m x n matrix by a length n single precision vector. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

M V, where M is an m x n single precision matrix. V is 
a length n single precision vector, m and/or n ^ 3. 

Other Library Modules: 



Execution Time (microseconds): 1 1 .2 + m(1 1 .0 + 1 8.4n) 



Input Arguments: 








Type 


Precision 


How Passed 


Units 


Matrix(m,n) 


SP 


R2^ th element 


- 


Vector(n) 


SP 


R3^ th element 


- 


Integer(m) 


SP 


R5 


- 


Integer(n) 


SP 


R6 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Vector(m) 


SP 


R1-> th element 


- 


Errors Detected: 








Error # 


Cause 


Fixuo 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,R6,R7,F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Uses 2 nested loops, outer loop selecting rows of matrix, inner loop summing 
products of vector elements with current row elements. 
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MV6S3 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: MV6S3 Size of Code Area 30 Hw 



Stack Requirement: Hw 



X Intrinsic 



Data CSECT Size: Hw 
Procedure 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: MV6S3 

Function: Multiplies a 3 x 3 single precision matrix by a length 3 single precision vector. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

M V, where M is a single precision 3x3 matrix, and V 
is a single precision length 3 vector. 

Other Library Modules: 



Execution Time (microseconds): 137.6 

Precision How Passed 



Input Arguments: 
Type 
Matrix(3,3) SP 

Vector(3) SP 



Units 



R2^0 th element 
R3^0 th element 



SP 
Cause 



R1^0 th element 
Fixup 



Output Results: 
Type Precision How Passed Units 

Vector(3) 

Errors Detected: 
Error # 
None 

Comments: 

Registers Unsafe Across Call: R1,R2,R3,R4,R5,R6,F0,F1,F2,F3. 

Algorithm: 

The product of each vector element and the current row element is summed and 
stored in the proper element output vector. 



6-165 



November 2005 



HAL/S Compiler System Specification 



USA003089 
32.0/17.0 



VM6DN 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VM6DN Size of Code Area 26 Hw 

Stack Requirement:. 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 



Hw 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: VM6DN 

Function: Multiplies length n double precision vector and n x m double precision matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 



V M, where V is a double precision length n vector, n ^ 
3, and M is a double precision n x m matrix, n ^ 3. 

Other Library Modules: 



Execution Time (microseconds): 23.2 + m(23.2 + 27. 6n) 
Input Arguments: 



Type 


Precision 


How Passed 


Units 


Vector(n) 


DP 


R2^0 th element 


- 


Matrix(n,m) 


DP 


R3->0 th element 


- 


Integer(m) 


SP 


R6 


- 


Integer(n) 


SP 


R5 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Vector(m) 


DP 


R1^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixuo 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,R6,R7,F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Uses two nested loops: 

Outer loop selects matrix column. 

Inner loop sums products of vector elements with matrix column elements. 
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VM6D3 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VM6D3 Size of Code Area 24 Hw 

Stack Requirement: Q_ Hw Data CSECT Size: _0_ Hw 



X Intrinsic Procedure 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: VM6D3 

Function: Multiplies a length 3 double precision vector by a 3 x 3 double precision 
matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V M, where V is a double precision length 3 vector, and M 
is a double precision 3x3 matrix. 

Other Library Modules: 



Execution Time (microseconds): 227.8 
Input Arguments: 



Type 
Vector(3) 

Matrix(3,3) 


Precision 
DP 

DP 


How Passed Units 
R2^0 th element " 
R3^0 th element " 


Output Results: 
Type 
Vector(3) 


Precision 
DP 


How Passed Units 
R1^0 th element " 


Errors Detected: 
Error # 


Cause 


Fixup 



None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Saves pointer to input vector (R2) so that R2 can be used to address both input 
vector and matrix by appropriate loading. 
Loops 3 times: 

Loads elements of vector into F0,F2,F4; 

Switches R2 to point to matrix; 

Sums products of column elements with vector elements; 

Restores R2 to point at vector; 

Makes next pass. 
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VM6SN 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VM6SN Size of Code Area 22 Hw 

Stack Requirement: 0_ Hw Data CSECT Size: _0_ Hw 

Intrinsic 



X 



Procedure 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: VM6SN 

Function: Multiply a length n single precision vector by a n x m single precision matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 



V M, where Visa single precision n-vector, n ^ 3 . 
M is an n x m matrix, n ^ 3 . 

Other Library Modules: 



Execution Time (microseconds): 12.4 + m(19.2 + 18.2n) 

Input Arguments: 
Type 



Precision How Passed 



Units 



Vector(n) 


SP 


R2^0 th element " 


Matrix(n,m) 


SP 


R3^0 th element " 


Integer(m) 


SP 


R6 


Integer(n) 


SP 


R5 


Output Results: 






Type 


Precision 


How Passed Units 


Vector(m) 


SP 


R1^0 th element " 


Errors Detected: 






Error # 


Cause 


Fixuo 



None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,R6,R7,F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Uses two nested loops; outer loop selecting matrix column, inner loop performs 
summation of products of vector elements and matrix column elements. 
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VM6S3 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VM6S3 Size of Code Area 16 Hw 

Stack Requirement: Q_ Hw Data CSECT Size: _0_ Hw 



X Intrinsic Procedure 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: VM6S3 

Function: Multiplies a length 3 single precision vector by a 3 x 3 single precision matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V M, where V is a single precision length 3 vector. M is 
a single precision 3x3 matrix. 

Other Library Modules: 



Execution Time (microseconds): 141.2 
Input Arguments: 



Type 
Vector(3) 

Matrix(3,3) 


Precision 
SP 

SP 


How Passed 
R2->0 th element 
R3->0 th element 


Units 


Output Results: 
Type 
Vector(3) 


Precision 
SP 


How Passed 
R1^0 th element 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,F0,F1 ,F2,F3. 

Algorithm: 

Uses one loop, looping three times, each pass addressing new column of matrix for 
explicit multiplication and summing, by elements of vector and storing into result. 
R1 is setup to contain both input matrix and output vector pointer in its two halves. 
Then circular shifts are used to place appropriate pointer into high Hw for use as 
base. 
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V06DN 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VMQ6DN Size of Code Area 20 Hw 

Stack Requirement:. 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 



Hw 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VQ6DN 

Function: Performs vector outer product of two double precision vectors. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

VI V2 , where VI and V2 are double precision vectors of 
length n and m respectively, where n and/or m ^ 3 . 

Other Library Modules 



Execution Time (microseconds): 12.8 + n(5.8 + 24.4m) 
Input Arguments: 



Type 


Precision 


How Passed 


Units 


Vector(n) 


DP 


R2 th element 


- 


Vector(m) 


DP 


R3^ th element 


- 


Integer(n) 


SP 


R5 


- 


Integer(m) 


SP 


R6 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Matrix(n,m) 


DP 


R1 -> th element 


- 


Errors Detected: 








Error # 


Cause 


Fixup 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,R6,R7,F0,F1 ,F4. 

Algorithm: 

Uses two loops based on the dimensions of the vectors: 

Inner loop (indexing on 'n') multiplies element of V1 by each element of V2 
creating a row of result matrix. 

Outer loop (indexing on 'm') moves to next element of V1 and moves pointer to 
next row of result matrix. 
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V06D3 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VMQ6D3 Size of Code Area 22 Hw 

Stack Requirement: 0_ 

Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 



Hw 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VQ6D3 

Function: Computes vector outer product of length 3 double precision vectors. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

VI V2 , where VI and V2 are double precision length 3 
vectors . 

Other Library Modules: 



Execution Time (microseconds): 251 .0 
Input Arguments: 



Vector(3) 
Vector(3) 

Output Results: 
Type 
Matrix(3,3) 

Errors Detected: 
Error # 



Precision 
DP 

DP 



How Passed 
R2^0 th element 
R3^0 th element 



Units 



Precision How Passed 
DP R1^0 th element 

Cause Fixup 



Units 



None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,R6,F0,F1 . 

Algorithm: 

Same algorithm as V06DN except that loop extents are set to literally 3. 

DO FOR I = 3 TO 1 BY -1; 

DO FOR J = 3 TO 1 BY -1; 



M$(I, J) = V1$(I) V2$(J) ; 
END; 



END; 



6-171 



November 2005 



HAL/S Compiler System Specification 



USA003089 
32.0/17.0 



V06SN 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VMQ6SN Size of Code Area 20 Hw 

Stack Requirement:. 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 



Hw 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VQ6SN 

Function: Calculates vector outer product of 2 single precision vectors. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

VI V2 , where VI and V2 are single precision vectors of 
length n and m respectively, where n and/or m ^ 3 . 

Other Library Modules: 



Execution Time (microseconds): 14.2 + n(5.8 + 14.4m) 
Input Arguments: 



Type 


Precision 


How Passed 


Units 


Vector(n) 


SP 


R2->0 th element 


- 


Vector(m) 


SP 


R3->0 th element 


- 


Integer(n) 


SP 


R5 


- 


Integer(m) 


SP 


R6 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Matrix(n,m) 


SP 


R1^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixup 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,R6,R7,F0,F1 ,F4,F5. 

Algorithm: 

Same as V06DN 
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V06S3 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VMQ6SN Size of Code Area 20 Hw 



Stack Requirement: Hw 



X Intrinsic 



Data CSECT Size: Hw 
Procedure 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VQ6S3 

Function: Calculates vector outer product of 2 single precision length 3 vectors. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

VI V2 , where VI and V2 are single precision length 3 
vectors . 

Other Library Modules: 



Execution Time (microseconds): 160.6 

Input Arguments: 

Type Precision How Passed 

Vector(3) SP 

Vector(3) SP 



Units 



R2^0 th element 
R3^0 th element 



Output Results: 
Type Precision How Passed 

Matrix(3,3) SP 



Units 



Errors Detected: 
Error # Cause 



R1^0 th element 
Fixup 



None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,R6,F0,F1 . 

Algorithm: 

Same algorithm as V06DN except that loop extents are set to literally 3. 
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VVODN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: VVODN 


Size of Code Area 




6 Hw 




Stack Requirement: Hw 


Data CSECT Size: 





Hw 




X Intrinsic 


Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VVODN 

Function: Initializes all elements of a double precision vector of length n, to the 
null vector (0). 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V=0, where V is a double precision vector. 



X Other Library Modules: 



VV10D3 

Execution Time (microseconds): 7.0 + 5.1 n 

Input Arguments: 



Type 

Scalar 

Integer(n) 


Precision 

DP 

SP 


How Passed 

FO 

F5 


Units 


Output Results: 
Type 
Vector(n) 


Precision 
DP 


How Passed 
R1^0 th element 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R4,R5,F0,F1 . 

Algorithm: 

Uses loop counting down length (n). Stores zero into one element of vector on 
each pass through loop. 
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VVODNP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: VVODNP 


Size of Code Area 




6 Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


X Intrinsic 


Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VVODNP 

Function: Fills a column of a double precision matrix with zeros. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

M* n = 0, where M is a double precision matrix, 
Other Library Modules: 



Execution Time (microseconds): 7.0 + 7.2n 

Input Arguments: 

Precision How Passed 



Units 



DP 
SP 
SP 



F0 
R7 
R5 



Precision How Passed 



Units 



lype 
Scalar 

Integer(outdel) 
Integer(length) 

Output Results: 
lype 
Vector(length) 

Errors Detected: 
Error # 
None 

Comments: 

Registers Unsafe Across Call: R1 ,R4,R5,R7,F0,F1 . 

Algorithm: 

Loops 'length' times; 

Each pass through loop stores zero into vector element pointed to by R1 and then 

increments R1 by outdel. 



DP 
Cause 



R1-> th element 
Fixup 
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VVOSN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: VVOSN 


Size of Code Area 




6 Hw 




Stack Requirement: Hw 


Data CSECT Size: 





Hw 




X Intrinsic 


Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VVOSN 

Function: Generates a vector of length n, all of whose elements are zero, i.e. null 
vector. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V = 0, where V is a single precision vector. 



X Other Library Modules: 



VV10S3 








Execution Time (r 


microseconds) 


: 7.0 + 5.6n 




Input Arguments: 
Type 
Scalar 
Integer(n) 


Precision 

SP 

SP 


How Passed 

FO 

R5 


Units 


Output Results: 
Type 
Vector(n) 


Precision 
SP 


How Passed 
R1-» th element 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R4,R5,F0. 

Algorithm: 

Uses loop counting down length of vector (n); Stores zero into one element of 
vector on each pass through loop. 
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VVOSNP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: VVOSNP 


Size of Code Area 




6 Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


X Intrinsic 


Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VVOSNP 

Function: Moves a single precision scalar to all elements of a column of a single 
precision matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

M* n = S ; where M is a single precision matrix and S is a 
single precision scalar. 

Other Library Modules: 



Execution Time (microseconds): 7.0 + 6.0n 
Input Arguments: 



Type 
Scalar 

Integer(outdel) 
Integer(length) 


Precision 
SP 
SP 
SP 


How Passed 

FO 

R7 

R5 


Units 


Output Results: 
Type 
Vector(length) 


Precision 
SP 


How Passed 
R1-> th element 


Units 


Errors Detected: 
Error # 
None 


Cause 


Fixup 





Comments: 

Registers Unsafe Across Call: R1,R4,R5,R7,F0,F1. 

Algorithm: 

Loops 'length' times; 

Each pass through loop stores input scalar into vector element pointed to by R1 

and then increments R1 by outdel. 
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VV1DN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: VV1 DN 


Size of Code Area 




8 Hw 




Stack Requirement: Hw 


Data CSECT Size: 





Hw 




X Intrinsic 


Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV1DN 

Function: Moves a length n double precision vector. Also used to move 
matrices. 

Invoked By: 
XHCompiler emitted code for HAL/S construct of the form: 

X = Y, where X is a length n double precision vector, Y 
is a length n double precision vector, n £ 3. 

Other Library Modules: 



Execution Time (microseconds): 4.2 + 10. 2n 
Input Arguments: 



Type 
Vector(n) 

Integer(n) 

Output Results: 
Type 
Vector(n) 

Errors Detected: 
Error # 



Precision How Passed 



Units 



DP 


R2^ th element 


- 


SP 


R5 


- 


Precision 


How Passed 


Units 



DP 



Cause 



R1-» th element 
Fixup 



None 

Comments: 

Registers Unsafe Across Call: R1,R2,R4,R5,F0,F1. 

Algorithm: 

Loop n times; using indexing, BCTB on length; load and store each element, last 
element first. 
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VV1D3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: VV1 D3 


Size of Code Area 


14 Hw 


Stack Requirement: Hw 


Data CSECT Size: 


Hw 


X Intrinsic 


Procedure 




Other Library Modules Referenced: 


NONE 





ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV1D3 

Function: Moves a length 3 partition of a double precision vector. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

A TO B = C TO D' wnere -^-A TO B and Yp h-iq y* cire _LenC[Cn -3 

partitions of double precision vectors. 
Other Library Modules: 



Execution Time (microseconds): 25.2 
Input Arguments: 



Type 
Vector(3) 

Integer(n) 


Precision 
DP 

SP 


How Passed 

R2^ th element 
R5 


Units 


Output Results: 
Type 
Vector(3) 


Precision 
DP 


How Passed 
R1^ th element 


Units 


Errors Detected: 
Error # 
None 


Cause 


Fixup 





Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Load, then store each element. 
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VV1D3P 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: VV1D3P 


Size of Code Area 




18 Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


X Intrinsic 


Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV1D3P 

Function: Moves a length 3 double precision vector or row or column of a matrix 
to a vector or row or column of a matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

where M is a double precision matrix, A TO B 



V=M 



■A TO B, C 



is a length 3 partition, and V is a 3-vector. 
Other Library Modules: 



Execution Time (microseconds): 

46.0 if neither input nor output is contiguous. 
48.4 if either input or output is contiguous. 

Input Arguments: 



Type 


Precision 


How Passed 


Units 


Vector(3) 


DP 


R2^ th element 


- 


Integer(indel) 


SP 


R6 


- 


Integer(outdel) 


SP 


R7 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Vector(3) 


DP 


R1-> th element 


- 


Errors Detected: 








Error # 


Cause 


Fixup 





None 

Comments: 

Performs single setup of size and then uses VV1 DNP. 
Registers Unsafe Across Call: R1 ,R2,R4,R5,R6,R7,F0,F1 . 

Algorithm: 

Initialize R5 with literal 3; Fall into VV1 DNP routine; R6, R7 specify distance in Hw 
between input and output vector elements, respectively. 
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VV1D3P 
Secondary Entry Name: VV1DNP 

Function: Moves a length n double precision vector or row or column of a 
matrix to a row or column vector. 



V=M 



X Compiler emitted code for HAL/S construct of the form: 

where M is a double precision matrix, A TO B 
is a length n partition, and V is an n-vector, 
n * 3 . 



■A TO B, C 



Other Library Modules: 

Execution Time (microseconds): 

1 1 .4n + 1 0.2 if neither input nor output is contiguous. 
1 1 .4n + 1 2.6 if either input or output is contiguous. 

Input Arguments: 



Type 


Precision 


How Passed 


Units 


Vector(n) 


DP 


R2->0 th element 


- 


Integer(indel) 


SP 


R6 


- 


Integer(outdel) 


SP 


R7 


- 


Integer(n) 


SP 


R5 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Vector(n) 


DP 


R1^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixuo 





None 



Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,R5,R6,R7,F0,F1 . 

Algorithm: 

Tests outdel, if 0, sets it to 4 (halfwords); Tests indel, if 0, sets it to 4 (halfwords); 
Loops 'length' times, adding indel to input pointer and outdel to output pointer each 
time. Each loop moves current input element to current output element. 
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VV1SN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: VV1SN 


Size of Code Area 




8 Hw 




Stack Requirement: Hw 


Data CSECT Size: 





Hw 




X Intrinsic 


Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV1SN 

Function: Moves a length n partition of a single precision vector. Also used to 
move matrices. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V1 A T0 B =V2 C T0 D where V1 A T0 B and V2 C T0 D are length n 



partitions of 
vectors, n £ 3 . 



single 



precision 



Other Library Modules 
Execution Time (microseconds): 4.2 + 7.8n 
Input Arguments: 



Type 
Vector(n) 

Integer(n) 


Precision 
SP 

SP 


How Passed 

R2->0 th element 
R5 


Units 


Output Results: 
Type 
Vector(n) 


Precision 
SP 


How Passed 
R1^0 th element 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,R5,F0,F1 . 

Algorithm: 

Loop n times using indexing and BCTB on length. Load, then store each element, 
last element first. 
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VV1S3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: VV1S3 


Size of Code Area 




8 Hw 




Stack Requirement: Hw 


Data CSECT Size: 





Hw 




X Intrinsic 


Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV1S3 

Function: Moves a length 3 partition of a single precision vector. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V1 A to b =V2 a to B' where V1 A T0 B and V2 A T0 B are length 3 

partitions of single precision vectors. 

Other Library Modules 



Execution Time (microseconds): 16.8 

Input Arguments: 

Type Precision How Passed Units 

Vector(3) SP R2^0 th element " 

Output Results: 
Type Precision How Passed Units 

Vector(3) SP R1^0 th element " 

Errors Detected: 
Error # Cause Fixup 

None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Simple Load-Store sequence for each element. 
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VV1S3P 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: VV1S3P 


Size of Code Area 




14 


Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


t 


X Intrinsic 


Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV1S3P 

Function: Moves a single precision 3-vector (or row or column of a matrix) to a 

3-vector (or row or column of a matrix), when elements are not 

contiguous. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

V=M A T0 B c , where M is a single precision matrix, A TO 
B is a length 3 partition, and V is a 3- 
vector . 

Other Library Modules: 



X 



Execution Time (microseconds): 

38.4 if neither input nor output is contiguous. 
40.8 if either input or output is contiguous. 

Input Arguments: 



Type 


Precision 


How Passed 


Units 


Vector(3) 


SP 


R2->0 th element 


- 


Integer(indel) 


SP 


R6 


Hw 


Integer(outdel) 


SP 


R7 


Hw 


Output Results: 








Type 


Precision 


How Passed 


Units 


Vector(3) 


SP 


R1^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixup 




None 








Comments: 









Performs simple setup of size for use by VV1 SNP code. 
Registers Unsafe Across Call: R1 ,R2,R4,R5,R6,R7,F0,F1 . 

Algorithm: 

Initialize R5 with literal 3; Fall into VV1SNP routine; R6, R7 specify distance in Hw 
between input and output vector elements respectively. 
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VV1S3P 
Secondary Entry Name: VV1SNP 

Function: Moves a length n single precision vector or row or column of a 
matrix to a row or column vector. 

Invoked By: 



X| Compiler emitted code for HAL/S construct of the form: 

where 



V=M 



A TO B , C ' 



M A TO B,C= V '° r 

M A TO B,C =N A TO B,C 

Other Library Modules: 



M and N are single precision 
matrices, A TO B is a length n 
partition, and V is an n-vector, n ^ 3. 



Execution Time (microseconds): 

8.6n + 10.2 if neither input nor output is contiguous. 
8.6n + 12.6 if either input or output is contiguous. 

Input Arguments: 



Type 


Precision 


How Passed 


Units 


Vector(n) 


SP 


R2->0 th element 


- 


Integer(indel) 


SP 


R6 


Hw 


Integer(outdel) 


SP 


R7 


Hw 


Integer(length) 


SP 


R5 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Vector(n) 


SP 


R1^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixup 





None 



Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,R5,R6,R7,F0,F1 . 

Algorithm: 

Tests outdel, if 0, sets it to 2 (halfwords). 

Tests indel, if 0, sets it to 2 (halfwords). 

Loops 'length' times, adding indel to input pointer and outdel to output pointer each 

time. Each loop moves current input element to current output element. 
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VV1TN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: VV1TN 


Size of Code Area 




8 Hw 




Stack Requirement: Hw 


Data CSECT Size: 





Hw 




X Intrinsic 


Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV1TN 

Function: Moves a length n partition of a double precision vector and converts it 
to single precision. Also used to move matrices. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V1 A T0 B =V2 C T0 D , where V2 C is a length n partition of a 

double precision vector and V1 A T0 B is a 
length n partition of a single precision 
vector, n ^ 3 . 

Other Library Modules 



Execution Time (microseconds): 4.2 + 9.0n 
Input Arguments: 



Type 
Vector(n) 

Integer(n) 


Precision 
DP 

SP 


How Passed 

R2->0 th element 
R5 


Units 


Output Results: 
Type 
Vector(n) 


Precision 
SP 


How Passed 
R1^0 th element 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,R5,F0,F1 . 

Algorithm: 

Using indexing and BCTB on length, loops, loading long and storing short, last 
element first. 
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VV1T3 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VV1T3 Size of Code Area 12 Hw 

Stack Requirement: 0_ 

Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 



Hw 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV1T3 

Function: Moves a length 3 partition of a double precision vector and converts 
it to single precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V1 A T0 B =V2 C T0 D , where V1 A T0 B is a length 3 partition of 

a single precision vector and V2 C T0 D is 
a length 3 partition of a double 
precision vector. 



Other Library Modules 




Execution Time (microseconds): 


21.2 


Input Arguments: 
Type 
Vector(3) 


Precision 
DP 


How Passed 
R2->0 th element 


Output Results: 
Type 
Vector(3) 


Precision 
SP 


How Passed 
R1^0 th element 


Errors Detected: 
Error # 
None 


Cause 


Fixup 



Units 



Units 



Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Simple Load/Store for each element. 
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VV1T3P 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VV1T3P Size of Code Area 14 Hw 

Stack Requirement:. 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 



Hw 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV1T3P 

Function: Moves a length 3 partition of a double precision vector or row or 

column of a matrix to a single precision vector or row or column of a 

matrix, when elements are not contiguous. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 



X 



V=M A T0 B c , where V is a single precision 3-vector and M 
is a length 3 partition of a double precision 
matrix a to b,c 

Other Library Modules: 



Execution Time (microseconds): 

38.4 if neither input nor output is contiguous 
40.8 if either input or output is contiguous. 

Input Arguments: 

Precision 
DP 

SP 
SP 



Vector(3) 

Integer(indel) 
Integer(outdel) 



How Passed 

R2^0 th element 

R6 

R7 



Units 



Output Results: 
Type 
Vector(3) 

Errors Detected: 
Error # 
None 



Precision 
SP 



Cause 



How Passed 
R1^0 th element 

Fixup 



Units 



Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,R5,R6,R7,F0,F1 . 

Algorithm: 

Loads R5 with literal 3, 
Falls into VV1TNP routine. 
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VV1T3P 
Secondary Entry Name: VV1TNP 
Function: Moves a length n partition of a double precision vector or row or 

column of a matrix to a single precision length n row or column vector, 

when elements are not contiguous. 

Invoked By: 



X| Compiler emitted code for HAL/S construct of the form: 

V=M A T0 B c , where V is a length n single precision vector 
and M A T0 B c is a length n partition of a 
double precision matrix, n ^ 3 . 

Other Library Modules: 



Execution Time (microseconds): 

8.6n + 10.2 if neither input nor output is contiguous 
8.6n + 12.6 if either input or output is contiguous. 

Input Arguments: 



Type 


Precision 


How Passed 


Units 


Vector(n) 


DP 


R2^0 th element 


- 


Integer(outdel) 


SP 


R7 


- 


Integer(indel) 


SP 


R6 


- 


Integer(n) 


SP 


R5 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Vector(n) 


SP 


R1^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixup 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,R5,R6,R7,F0,F1 . 

Algorithm: 

If outdel=0, set to 2 (halfwords); 

If indel=0, set to 4 (halfwords); 

Loops 'length' times, adding indel to input pointer and outdel to output pointer each 

time. Each loop moves current input element to current output element. 
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VV1WN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: VV1WN 


Size of Code Area 




10Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


X Intrinsic 


Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV1WN 

Function: Moves a length n partition of a single precision vector and converts 
it to a length n partition of a double precision vector. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V1 A T0 B =V2 C T0 D , where V2 C is a length n partition of a 

single precision vector, and V1 A T0 B is a 
length n partition of a double precision 
vector, n £ 3 . 

Other Library Modules: 



Execution Time (microseconds): 8.4 + 9.0n 
Input Arguments: 



Type 
Vector(n) 

Integer(n) 


Precision 
SP 

SP 


How Passed 

R2^0 th element 
R5 


Units 


Output Results: 
Type 
Vector(n) 


Precision 
DP 


How Passed 
R1^0 th element 


Units 


Errors Detected: 
Error # 


Cause 


Fixuo 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,R5,F0,F1 . 

Algorithm: 

Clear F0,F1 . Loop using indexing on BCTB, last element first. 
Load short element into F0, Store long F0/F1 element. 
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VV1W3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: VV1W3 


Size of Code Area 


12 Hw 




Stack Requirement: Hw 


Data CSECT Size: 





Hw 




X Intrinsic 


Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV1W3 

Function: Moves a length 3 partition of a single precision vector and converts it 
to a length 3 partition of a double precision vector. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

V1 A T0 B =V2 C T0 D , where V2 C T0 D is a length 3 partition of 

a single precision vector, and V1 A T0 B is 
a length 3 partition of a double 
precision vector. 



X 



Other Library Modules: 
Execution Time (microseconds): 23.8 
Input Arguments: 



Type 
Vector(3) 

Output Results: 
Type 
Vector(3) 

Errors Detected: 
Error # 
None 



Precision How Passed Units 

SP R2^0 th element 

Precision How Passed Units 

DP R1^0 th element 

Cause Fixup 



Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,F0,F1 . 

Algorithm: 
Clear F1 ; 

Then explicit code to load (SP) each element of input vector and store (DP) into 
each element of result vector. 
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VV1W3P 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: VV1W3P 


Size of Code Area 


18 


Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


X Intrinsic 


Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV1W3P 

Function: Moves a length 3 partition of a single precision vector or row or 

column of a matrix, to a double precision vector or row or column of a 

matrix, when elements are not contiguous. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 



V=M 



A TO B , C ' 



where V is a double precision 3 -vector and M A 



TO B,C 



is a length 
precision matrix. 

Other Library Modules: 



3 partition of a single 



Execution Time (microseconds): 

44.8 if neither input nor output is contiguous 
47.2 if either input or output is contiguous. 

Input Arguments: 

Precision 
SP 

SP 
SP 



Vector(3) 

Integer(indel) 
Integer(outdel) 



How Passed 

R2^0 th element 

R6 

R7 



Units 



Output Results: 
Type 
Vector(3) 

Errors Detected: 
Error # 
None 



Precision How Passed 
DP R1^0 th element 



Cause Fixup 



Units 



Comments: 

Sets up length for use by VV1WNP. 

Registers Unsafe Across Call: R1 ,R2,R4,R5,R6,R7,F0,F1 . 

Algorithm: 

Loads R5 with literal 3, falls into VV1SNP. 
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VV1W3P 
Secondary Entry Name: VV1WNP 
Function: Moves a length n partition of a single precision row or column of a 

matrix to a double precision vector or row or column of a matrix, 

when elements are not contiguous. 

Invoked By: 



X| Compiler emitted code for HAL/S construct of the form: 

V=M A T0 B c , where V is a length n double precision 
vector and m a to b c i- s a length n partition 
of a single precision matrix, 

Other Library Modules: 



n * 3 . 



Execution Time (microseconds): 

1 0.2n + 1 5.0 if either input or output is contiguous. 
10. 2n + 12.6 if neither input nor output is contiguous. 

Input Arguments: 



Type 


Precision 


How Passed 


Units 


Vector(n) 


SP 


R2^0 th element 


- 


Integer(outdel) 


SP 


R7 


Hw 


Integer(indel) 


SP 


R6 


Hw 


Integer(n) 


SP 


R5 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Vector(n) 


DP 


R1^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixuo 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,R5,R6,R7,F0,F1 . 

Algorithm: 

Clears F1. If outdel=0, set to 4 (halfwords); if indel=0, set to 2 (halfwords); Loop 
'length' times, adding indel to input pointer and outdel to output pointer each time. 
Each loop moves current input element to current output element. 
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VV2DN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: VV2DN 


Size of Code Area 


14 


Hw 


Stack Requirement: Hw 


Data CSECT Size: 





Hw 


X Intrinsic 


Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV2DN 

Function: Add two double precision vectors of length n. Also used to add two matrices. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V1+V2, where VI and V2 are double precision vectors of 
length & 3 . 

Other Library Modules: 



Execution Time (r 


microseconds) 


8.8 + 20.6n 


Input Arguments: 






Type 


Precision 


How Passed 


Vector(n) 


DP 


R2->0 th element 


Vector(n) 


DP 


R3->0 th element 


Integer(n) 


SP 


R5 


Output Results: 






Type 


Precision 


How Passed 


Vector(n) 


DP 


R1^0 th element 


Errors Detected: 






Error # 


Cause 


Fixup 



Units 



Units 



None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,F0,F1 . 

Algorithm: 

Uses indexing in load, add, store sequence controlled by BCTB on length. 
Loading of an element is done with two LE instructions instead of one LED due to 
addressing inadequacies of R3 which is the input pointer. 
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VV2D3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: VV2D3 


Size of Code Area 


22 


Hw 




Stack Requirement: Hw 


Data CSECT Size: 





Hw 




X Intrinsic 


Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV2D3 

Function: Add two double precision 3-vectors. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V1+V2, where VI and V2 are double precision 3-vectors. 
Other Library Modules: 



Execution Time (microseconds): 51.4 
Input Arguments: 



Type 
Vector(3) 

Vector(3) 

Output Results: 
Type 
Vector(3) 

Errors Detected: 
Error # 



Precision 



How Passed 



Units 



DP 


R2^0 th element 


- 


DP 


R3->0 th element 


- 


Precision 


How Passed 


Units 



DP 



Cause 



R1^0 th element 
Fixup 



None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Loads F0,F2,F4 with first half of each element of 1 
V2. Loads F1,F3,F5 with second half of each } 
element of V2. j 

Adds double from V1 to F0, F2, F4; 
Stores double into elements of result. 



Due to addressing 
peculiarities of R3. 
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VV2SN 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VV2SN Size of Code Area 10 Hw 



Stack Requirement: Hw 



X Intrinsic 



Data CSECT Size: Hw 
Procedure 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV2SN 

Function: Add two single precision vectors of length n. Also used to add two matrices. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V1+V2, where VI and V2 are single precision vectors of 
length ^ 3 . 

Other Library Modules: 



Execution Time (microseconds): 8.4 + 13.6n 



Input Arguments: 






Type 


Precision 


How Passed Units 


Vector(n) 


SP 


R2^0 th element " 


Vector(n) 


SP 


R3^0 th element " 


Integer(n) 


SP 


R5 


Output Results: 






Type 


Precision 


How Passed Units 


Vector(n) 


SP 


R1^0 th element " 


Errors Detected: 






Error # 


Cause 


Fixup 



None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,F0,F1 . 

Algorithm: 

Uses indexing in load, add, store sequence controlled by BCTB on length. 
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VV2S3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: VV2S3 


Size of Code Area 


12 


Hw 




Stack Requirement: Hw 


Data CSECT Size: 





Hw 




X Intrinsic 


Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV2S3 

Function: Adds two single precision 3-vectors. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V1+V2, where VI and V2 are single precision 3-vectors. 
Other Library Modules: 



Execution Time (microseconds): 29.6 
Input Arguments: 



Type 
Vector(3) 

Vector(3) 


Precision 
SP 

SP 


How Passed 
R2->0 th element 
R3->0 th element 


Units 


Output Results: 
Type 
Vector(3) 


Precision 
SP 


How Passed 
R1^0 th element 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,F0,F2,F4. 

Algorithm: 

Loads elements of V1 into F0,F2,F4. 
Adds element of V2 respectively. 
Stores F0,F2,F4 into elements of result. 
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VV3DN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: VV3DN 


Size of Code Area 


16 


Hw 




Stack Requirement: Hw 


Data CSECT Size: 





Hw 




X Intrinsic 


Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV3DN 

Function: Subtracts one double precision length n-vector from another. Also 
used to subtract matrices. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

VI -V2, where VI and V2 are double precision vectors of 
length ^ 3 . 

Other Library Modules: 



X 



Execution Time (microseconds): 6.0 + 22. 7n 
Input Arguments: 



Type 


Precision 


How Passed 


Vector(n) V1 


DP 


R2->0 th element 


Vector(n)V2 


DP 


R3->0 th element 


Integer(n) 


SP 


R5 


Output Results: 






Type 


Precision 


How Passed 


Vector(n) 


DP 


R1^0 th element 


Errors Detected: 






Error # 


Cause 


Fixup 


None 







Units 



Units 



Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,F0,F1 . 

Algorithm: 

Exchange contents of R2/R3 for addressing considerations. Uses indexed load, 
subtract, store sequence controlled by BCTB on length. Load of minuend elements 
is done with two LE instructions due to use of R3 as index. 
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VV3D3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: VV3D3 


Size of Code Area 


24 


Hw 




Stack Requirement: Hw 


Data CSECT Size: 





Hw 




X Intrinsic 


Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV3D3 

Function: Subtracts two double precision vectors of length 3. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

VI -V2, where VI and V2 are double precision 3 -vectors 
Other Library Modules: 



Execution Time (microseconds): 55.4 
Input Arguments: 



Type 
Vector(3)V1 

Vector(3)V2 


Precision 
DP 

DP 


How Passed 
R2->0 th element 
R3^0 th element 


Units 


Output Results: 
Type 
Vector(3) 


Precision 
DP 


How Passed 
R1^0 th element 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,F0,F1 . 

Algorithm: 

Exchange contents of R2 and R3 for addressing considerations. 

Load minuend elements into F0/F1 , F2/F3, F4/F5 using two LE instructions each 

because of R3 addressing rules. 

Subtract subtrahend elements. 

Store results using STED into result location. 
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VV3SN 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VV3SN Size of Code Area 10 Hw 



Stack Requirement: Hw 



X Intrinsic 



Data CSECT Size: Hw 
Procedure 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV3SN 

Function: Subtracts one length n single precision vector from another. Also 
used to subtract matrices. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V1-V2, where VI and V2 are single precision vectors of 
length ^ 3 . 

Other Library Modules: 



Execution Time (microseconds): 8.4 + 13.6n 
Input Arguments: 



Type 


Precision 


How Passed Units 


Vector(n)V1 


SP 


R2^0 th element " 


Vector(n)V2 


SP 


R3->0 th element " 


Integer(n) 


SP 


R5 


Output Results: 






Type 


Precision 


How Passed Units 


Vector(n) 


SP 


R1^0 th 
element 


Errors Detected: 






Error # 


Cause 


Fixup 


None 







Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,F0,F1 . 

Algorithm: 

Uses indexed load, subtract, store sequence controlled by a BCTB loop on 'length'. 
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VV3S3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: VV3S3 


Size of Code Area 


12 


Hw 




Stack Requirement: Hw 


Data CSECT Size: 





Hw 




X Intrinsic 


Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV3S3 

Function: Subtracts two single precision vectors of length 3. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

VI - V2 , where VI and V2 are single precision 
3-vectors . 

Other Library Modules: 



Execution Time (microseconds): 29.6 
Input Arguments: 



Type 
Vector(3)V1 

Vector(3)V2 


Precision 
SP 

SP 


How Passed 
R2^0 th element 
R3^0 th element 


Units 


Output Results: 
Type 
Vector(3) 


Precision 
SP 


How Passed 
R1^0 th element 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,F0,F2,F4. 

Algorithm: 

Load minuend elements into F0,F2,F4. 

Subtract subtrahend elements from F0,F2,F4 respectively. 

Store F0,F2,F4 into result elements. 
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VV4DN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: VV4DN 


Size of Code Area 


8 


Hw 




Stack Requirement: Hw 


Data CSECT Size: 





Hw 




X Intrinsic 


Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV4DN 

Function: Multiplies each element of a double precision length n vector by a 
double precision scalar. Also used to multiply matrix by scalar. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V S, where V is a double precision vector of length ^ 
and S is a double precision scalar. 

Other Library Modules: 



Execution Time (microseconds): 7.0 + 23.4n 
Input Arguments: 



Type 


Precision 


How Passed 


Units 


Vector(n) 


DP 


R2^0 th element 


- 


Scalar 


DP 


F0 


- 


Integer(n) 


SP 


R5 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Vector(n) 


DP 


R1^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixup 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,R5,F0,F1 ,F2,F3. 

Algorithm: 

Uses BCTB loop to count down 'length', performing load, multiply, store for each 
element. 
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VV4D3 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VV4DN Size of Code Area 18 Hw 



Stack Requirement: Hw 



X Intrinsic 



Data CSECT Size: Hw 
Procedure 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV4D3 

Function: Multiplies each element of a double precision vector of length 3 by a 
double precision scalar. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V S, where V is length 3 double precision vector and S 
is a double precision scalar. 

Other Library Modules: 



Execution Time (microseconds): 


68.4 


Input Arguments: 
Type 
Scalar 
Vector(3) 


Precision 

DP 

DP 


How Passed Units 
F0 

R2^0 th element " 


Output Results: 
Type 
Vector(3) 


Precision 
DP 


How Passed Units 
R1^0 th element " 


Errors Detected: 
Error # 
None 


Cause 


Fixup 



Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,F0,F1 ,F2,F3. 

Algorithm: 

Simple load, multiply, store sequence for each element. 
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VV4SN 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VV4SN Size of Code Area _8_ Hw 

Stack Requirement: 0_ Hw Data CSECT Size: _0_ Hw 

Intrinsic 



X 



Procedure 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV4SN 

Function: Multiplies a length n single precision vector by a single precision 
scalar. Also used to multiply matrix by scalar. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V S, where V is a single precision vector of length ^ 
3 and S is a single precision scalar. 

Other Library Modules: 



Execution Time (microseconds): 7.0 + 14.0n 
Input Arguments: 



Type 


Precision 


How Passed 


Units 


Scalar 


SP 


F0 


- 


Vector(n) 


SP 


R2^0 th element 


- 


Integer(n) 


SP 


R5 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Vector(n) 


SP 


R1^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixup 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,R5,F0,F1 ,F2,F3. 

Algorithm: 

Uses BCTB loop to count down 'length', performing load, multiply, store for each 
element. 
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VV4S3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: VV4S3 


Size of Code Area 


12 


Hw 




Stack Requirement: Hw 


Data CSECT Size: 





Hw 




X Intrinsic 


Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV4S3 

Function: Multiplies each element of a single precision 3-vector by a single precision 

scalar. 
Invoked By: 



X| Compiler emitted code for HAL/S construct of the form: 

V S, where V is a single precision 3-vector, and S is a 
single precision scalar. 

Other Library Modules: 



Execution Time (microseconds): 38.4 
Input Arguments: 



Type 

Scalar 

Vector(3) 


Precision 

SP 

SP 


How Passed 
F0 

R2->0 th element 


Units 


Output Results: 
Type 
Vector(3) 


Precision 
SP 


How Passed 
R1^0 th element 


Units 


Errors Detected: 
Error # 
None 


Cause 


Fixup 





Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,F0,F2,F3. 

Algorithm: 

Simple load, multiply, store for each element. 



6-205 



November 2005 



HAL/S Compiler System Specification 



USA003089 
32.0/17.0 









VV5DN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: VV5DN 


Size of Code Area 


24 


Hw 


Stack Requirement: Hw 


Data CSECT Size: 


2 


Hw 


X Intrinsic 


Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV5DN 

Function: Divides a double precision vector of length n by a double precision 
scalar. Also used to divide matrix by scalar. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V/S, where V is a double precision vector of length # 3 
and S is a double precision scalar 

Other Library Modules: 



Execution Time (microseconds): 37.0 + 24. 2n 
Input Arguments: 



Type 


Precision 


How Passed 


Units 


Scalar 


DP 


F0 


- 


Vector(n) 


DP 


R2^0 th element 


- 


Integer(n) 


SP 


R5 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Vector(n) 


DP 


R1^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixuo 





25 Scalar argument is zero Store original vector as result 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,R5,F0,F1 ,F2,F3. 

Algorithm: 

Test F0; if zero, preset quotient to 1 ; otherwise, compute 1/S and then use BCTB 
loop to count down 'length' performing load, multiply (by 1/S), store sequence for 
each element. 
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VV5D3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: VV5D3 


Size of Code Area 


34 


Hw 




Stack Requirement: Hw 


Data CSECT Size: 


2 


Hw 




X Intrinsic 


Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV5D3 

Function: Divide each element of a double precision length 3 vector by a 
double precision scalar. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V/S, where V is a double precision 3 -vector and S is a 
double precision scalar. 

Other Library Modules: 



Execution Time (microseconds): 98.4 
Input Arguments: 



Type 

Scalar 

Vector(3) 

Output Results: 
Type 
Vector(3) 



Precision How Passed 

DP F0 

DP R2^0 th element 

Precision How Passed 

DP R1^0 th element 



Units 



Units 



Errors Detected: 
Error # 
25 



Fixup 

Store original vector as result 



Cause 

Scalar argument is zero 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,F0,F1 ,F2,F3,F4,F5,F6,F7. 

Algorithm: 

Test F0; if zero, send error and set quotient to 1 ; 

Otherwise, quotient 1/arg is calculated and then used in a simple load, multiply, and 

store sequence for each element. 
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VV5SN 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VV5SN Size of Code Area 14 

Stack Requirement: 

Intrinsic 



Hw 



Hw 



X 



Data CSECT Size: 
Procedure 



2 Hw 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV5SN 

Function: Divides single precision vector of length n by a single precision 
scalar. Also used to divide matrix by scalar. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V/S, where V is a single precision vector of length ^ 3 
and S is a single precision scalar. 

Other Library Modules: 



Execution Time (microseconds): 7.2 + 18.0n 
Input Arguments: 



Precision 

SP 

SP 

SP 



How Passed 
F0 

R2->0 th element 
R5 



Units 



Precision How Passed 



R1^0 th element 



Scalar 
Vector(n) 

Integer(n) 

Output Results: 
Type 
Vector(n) 

Errors Detected: 
Error # 
25 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,R5,F0,F1 ,F2,F3. 

Algorithm: 

Test F0, if zero, set F0 to 1; Uses BCTB loop to count down 'length' performing 
load, divide, store sequences for each element. 



SP 



Cause 



Scalar argument is zero 



Units 



Fixup 

Store original vector as result 
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VV5S3 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VV5S3 Size of Code Area 18 Hw 

Stack Requirement: Q_ Hw Data CSECT Size: 2 Hw 



X Intrinsic Procedure 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV5S3 

Function: Divide each element of a single precision vector of length 3 by a 
single precision scalar. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V/S, where V is a single precision 3-vector and S is a 
single precision scalar. 

Other Library Modules: 



Execution Time (microseconds): 50.6 

Input Arguments: 

Type Precision How Passed Units 

Scalar SP F0 

Vector(3) SP R2^0 th element " 

Output Results: 
Type Precision How Passed Units 

Vector(3) SP R1^0 th element " 

Errors Detected: 
Error # Cause Fixup 

25 Scalar argument is zero Store original vector as result 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,F0,F1 ,F2,F3. 

Algorithm: 

Test F0; if zero, set F0 to floating point 1 ; then do a simple load, divide, and store 
sequence for each element. 
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VV6DN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: VV6DN 


Size of Code Area 


12 


Hw 


Stack Requirement: Hw 


Data CSECT Size: 


2 


Hw 


X Intrinsic 


Procedure 






Other Library Modules Referenced: 


NONE 







ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV6DN 

Function: Forms dot product of two double precision length n vectors. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

VI. V2 where VI and V2 are double precision vectors of 
length n, n ^ 3 . 

Other Library Modules 



Execution Time (microseconds): 16.4 + 25.4n 

Input Arguments: 

Type Precision How Passed 

Vector(n) DP 

Vector(n) DP 

Integer(n) SP 



Units 



R2^0 th element 

R3->0 th element 
R5 



Output Results: 
Type Precision How Passed 

Scalar DP 



Units 



Errors Detected: 
Error # Cause 

None 



F0 
Fixup 



Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,F0,F1 ,F2,F3. 

Algorithm: 

Loads R3 into R1 for addressability advantages. 
Performs: 

n 

H V1 j V2j by loops counting down n; 
i = 1 
Each pass loads V1j, multiplies by V2j, and adds to accumulated sum in F0. 
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VV6D3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name: VV6D3 


Size of Code Area 


16 


Hw 




Stack Requirement: Hw 


Data CSECT Size: 


2 


Hw 




X Intrinsic 


Procedure 








Other Library Modules Referenced: 


NONE 









ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV6D3 

Function: Forms dot product of two double precision 3-vectors. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

VI. V2 where VI and V2 are double precision 3-vectors. 
Other Library Modules 



Execution Time (microseconds): 71.8 

Input Arguments: 

Type Precision How Passed 

Vector(3) DP 

Vector(3) DP 



Units 



R2^0 th element 
R3^0 th element 



Output Results: 
Type Precision How Passed 

Scalar DP 



Units 



Errors Detected: 
Error # Cause 



F0 
Fixup 



None 
Comments: 

Registers Unsafe Across Call: R2,R3,R4,F0,F1 ,F2,F3. 
Algorithm: 

Moves R3 to R1 for addressability advantages. 
Performs: 

n 

2j V1 j V2j via straight line code, no loops, accumulating result in F0. 

i=1 



6-211 



November 2005 



HAL/S Compiler System Specification 



USA003089 
32.0/17.0 



VV6SN 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VV6SN Size of Code Area 12 Hw 



Stack Requirement: Hw 



X Intrinsic 



Data CSECT Size: 2 Hw 
Procedure 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV6SN 

Function: Forms dot product of two length n single precision vectors. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

VI. V2 where VI and V2 are single precision n-vectors, 

n * 3 . 

Other Library Modules 



Execution Time (microseconds): 15.2 + 16.8n 

Input Arguments: 

Type Precision How Passed 

Vector(n) SP 

Vector(n) SP 

Integer(n) SP 



Units 



R2^0 th element 

R3->0 th element 
R5 



Output Results: 
Type Precision How Passed 

Scalar SP 



Units 



Errors Detected: 
Error # Cause 

None 



F0 
Fixup 



Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,F5,F0,F1 ,F2,F3. 
Algorithm: 

Moves R3 to R1 for addressability advantages. 
Performs: 

n 

Z V1jV2j 
i=1 

by a loop counting down n; Each pass loads V1 b multiplies by V2„ and adds to accu- 
mulated sum in F0. 
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VV6S3 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VV6S3 Size of Code Area 10 

Stack Requirement: 
Intrinsic 



Hw 



Hw 



X 



Data CSECT Size: 
Procedure 



Hw 



Other Library Modules Referenced: NONE 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV6S3 

Function: Forms dot product of two single precision 3-vectors. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

single 



VI. V2 where VI 
3-vectors . 

Other Library Modules 



and V2 are 



precision 



Execution Time (microseconds): 41.8 
Input Arguments: 



Type 
Vector(3) 

Vector(3) 

Output Results: 
Type 
Scalar 

Errors Detected: 
Error # 



Precisio n How Passed 
SP 

SP 



Units 



R2^0 th element 
R3^0 th element 



Precision How Passed 



Units 



SP 
Cause 



F0 
Fixup 



None 

Comments: 

Registers Unsafe Across Call: R2,R3,R4,F0,F1 ,F2,F3. 

Algorithm: 

Calculates V1-|V2i + V1 2 V2 2 + V1 3 V2 3 via direct code, no loops, accumulating 
result in F0. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name: VV7DN Size of Code Area 10 

Stack Requirement: Hw Data CSECT Size: 

Procedure 







VV7DN 

Hw 
Hw 



X Intrinsic 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV7DN 

Function: Vector negate, double precision, length n. Also used to negate matrices. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

-V, where V is a double precision vector of length n, 

n * 3 . 
Other Library Modules 



Execution Time (microseconds): 7.0 + 11 .4n 
Input Arguments: 



Type 
Vector(n) 

Integer(n) 


Precision 
DP 

SP 


How Passed Units 

R2^0 th element " 
R5 


Output Results: 
Type 
Vector(n) 


Precision 
DP 


How Passed Units 
R1^0 th element " 


Errors Detected: 
Error # 


Cause 


Fixup 



None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,R5,F0,F1 . 

Algorithm: 

Uses loop to count down 'n', each pass performing load, negate, store sequence on 
current vector element. 
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VV7D3 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VV7D3 Size of Code Area 20 Hw 

Data CSECT Size: Hw 



Stack Requirement: Hw 
X Intrinsic 



Procedure 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV7D3 

Function: Vector negate, double precision for vectors of length 3. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

-V, where V is a double precision 3 -vector. 
Other Library Modules 



Execution Time (microseconds): 32.4 

Input Arguments: 

Type Precision How Passed Units 

Vector(3) DP R2^0 th element " 



How Passed 
R1^0 th element 

Fixup 



Output Results: 
Type Precision How Passed Units 

Vector(3) DP 

Errors Detected: 
Error # Cause 

None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Simple, direct code sequence, no loops. Performs 3 loads, 3 negations, 3 stores. 
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VV7SN 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VV7SN Size of Code Area 10 Hw 

Data CSECT Size: Hw 



Stack Requirement: Hw 



X Intrinsic 



Procedure 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV7SN 

Function: Vector negate, single precision length n. Also used to negate matrices. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

-V, where V is a single precision vector of length n, 

n * 3 . 
Other Library Modules 



Execution Time (microseconds): 7.0 + 9.0n 
Input Arguments: 



Type 
Vector(n) 

Integer(n) 


Precision 
SP 

SP 


How Passed 

R2->0 th element 
R5 


Units 


Output Results: 
Type 
Vector(n) 


Precision 
SP 


How Passed 

R1^0 th 
element 


Units 


Errors Detected: 
Error # 


Cause 


Fixuo 





None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,R5,F0,F1 . 

Algorithm: 

Uses loop to count down 'n', each pass performing load, negate, store sequence on 
current vector element. 
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VV7S3 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VV7S3 Size of Code Area 14 Hw 
Stack Requirement: Hw Data CSECT Size: Hw 

X Intrinsic Procedure 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV7S3 

Function: Vector negate, single precision for vectors of length 3. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

-V, where V is a single precision 3-vector. 
Other Library Modules 



Execution Time (microseconds): 23.4 
Input Arguments: 



Type 


Precision 


How Passed Units 


Vector(3) 


SP 


R2^ th " 
element 


Output Results: 






Type 


Precision 


How Passed Units 


Vector(3) 


SP 


R1^0 th element " 


Errors Detected: 






Error # 


Cause 


Fixuo 



None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R4,F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Direct, inline code, no loops. Does 3 loads, 3 negations, 3 stores. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VV8D3 Size of Code Area 12 
Stack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 







VV8D3 

Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV8D3 

Function: Compares two double precision 3-vectors. 

Invoked By: 



are single precision 



X Compiler emitted code for HAL/S construct of the form: 

IF X = Y..., where X and 
3-vectors . 

Other Library Modules: 



Execution Time (microseconds): 
59.0 if X=Y; 
1 6.2n + 24.6 if X*Y 

where n = 3 -(index of last non-matching pair of elements). 
Input Arguments: 



Type 
Vector(3) 

Vector(3) 


Precision 
DP 

DP 


How Passed Units 
R2^0 th element " 
R3^0 th element " 


Output Results: 
Type 
Equal/not equal 


Precision 


How Passed Units 
Condition code 


Errors Detected: 
Error # 
None 


Cause 


Fixup 



Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,F0,F1 

Algorithm: 

Loads a literal 3 into R5, then drops into VV8DN code. 
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Secondary Entry Name: VV8DN 

Function: Compares two double precision vectors of length n. 
compare matrices. 

Invoked By: 



VV8D3 
Also used to 



X Compiler emitted code for HAL/S construct of the form: 

where X and Y are double precision vectors of 
length n, n ^ 3 . 



IF X 



Y. 



Execution Time (microseconds): 
16.2n + 18.0ifX=Y; 
16.2m + 22.2 if X*Y, 
where m = n-(index of last non-matching pair of elements) 

Input Arguments: 



Type 
Vector(n) 

Vector(n) 

Integer(n) 

Output Results: 
Type 
Equal/not equal 

Errors Detected: 
Error # 
None 



Precision How Passed 



Units 



DP 
DP 
SP 



R2^0 th element 

R3->0 th element 
R5 



Precision How Passed 



Units 



Cause 



Condition code 



Fixup 



Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,F0,F1 . 

Algorithm: 

Loads R3 into R1 for better addressability. Loops, counting down 'size', each pass 
compares values of one element of each vector. When first non-compare occurs, 
branch to return point is taken, exiting loop. 

Condition code is set based upon whether count down loop reaches 0. Condition 
code of 00 indicates equality, 01 indicates inequality. 
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VV8S3 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VV8S3 Size of Code Area 
Stack Requirement: 
Intrinsic 



12 



Hw 



Hw 



X 



Data CSECT Size: 
Procedure 







Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV8S3 

Function: Compares two single precision vectors of length 3. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

IF X Y..., where X and Y are single precision 
3-vectors . 

Other Library Modules: 



Execution Time (microseconds): 
42.8 if X=Y; 
10.8n + 8.4ifX*Y, 
where n = 4 - (index of last non-matching pair of elements). 

Input Arguments: 



Type 
Vector(3) 

Vector(3) 


Precision 
SP 

SP 


How Passed 
R2^0 th element 
R3->0 th element 


Units 


Output Results: 
Type 
Equal/not equal 


Precision 


How Passed 
Condition code 


Units 


Errors Detected: 
Error # 
None 


Cause 


Fixup 





Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,F0,F1 . 

Algorithm: 

Loads a literal 3 into R5, then continues with the VV8SN algorithm. 
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VV8S3 
Secondary Entry Name: VV8SN 

Function: Compares two single precision vectors of length n. Also used to compare 
matrices. 
Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

IF X = Y..., where X and Y are single precision vectors of 
length n, n ^ 3 . 

Other Library Modules: 



Execution Time (microseconds): 
10.8n + 8.0ifX=Y; 
10.8m + 6.0 if X^Y, 
where m = n - (index of last non-matching pair of elements) + 1 . 

Input Arguments: 
Type 
Vector(n) 



Precision How Passed 



Units 



SP 
SP 
SP 



R2^0 th element 

R3->0 th element 
R5 



Precision How Passed 
Condition code 



Fixup 



Vector(n) 
Integer(n) 

Output Results: 
Type Precision How Passed Units 

Equal/not equal 

Errors Detected: 
Error # Cause 

None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,F0,F1 . 

Algorithm: 

Loads R3 into R1 for better addressability. Loops, counting down 'size', each pass 
compares values of one element of each vector. When first non-compare occurs, 
branch to return point is taken, exiting loop. Condition code is set based upon 
whether count down loop reaches 0. Condition code of 00 indicates equality, 01 
indicates inequality. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VV9S3 Size of Code Area 14 
Stack Requirement: 
Intrinsic 



18 Hw 



Data CSECT Size: 
Procedure 



VV9S3 

_ Hw 
Hw 



X 



Other Library Modules Referenced: SORT 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV9S3 

Function: Calculates magnitude of length 3 single precision vector. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

ABVAL (V) , where V is a single precision 3-vector. 
Other Library Modules 



Execution Time (microseconds): 168.3 
Input Arguments: 



Type 
Vector(3) 

Output Results: 
Type 
Scalar 

Errors Detected: 
Error # 
None 



Precision 
SP 

Precision 
SP 

Cause 



How Passed 
R2->0 th element 

How Passed 
F0 

Fixup 



Units 



Units 



Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3. 

This routine will generate incorrect results if the input vector element is greater than 

SQRT(7.2370055773322600e + 75). 

Algorithm: 

Loads and multiplies each element of the input vector and adds to an accumulated 
value in F0. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VV10D3 Size of Code Area 70 
Stack Requirement: 
Intrinsic 



28 Hw 



Data CSECT Size: 
Procedure 



VV10D3 

_Hw 
2 Hw 



X 



Other Library Modules Referenced: DSQRTVVODN 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV10D3 

Function: Creates unit vector of length 3 for input 3-vector in double precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

UNIT (V) , where V is a double precision 3-vector. 
Other Library Modules 



Execution Time (microseconds): 402.7 
Input Arguments: 



Type 
Vector(3) 


Precision 
DP 


How Passed 

R4^0 th 
element 


Units 


Output Results: 
Type 
Vector(3) 


Precision 
DP 


How Passed 

R2^0 th 
element 


Units 


Errors Detected: 
Error # 
28 


Cause 

Input vector has all elements=0 


Fixup 
Retur 



Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

This routine will generate incorrect results if the input vector element is greater then 

SQRT(7.2370055773322600e + 75). 

Algorithm: 

Loads R5 with literal 3, then continues with the VV10DN algorithm. 
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VV10D3 



Secondary Entry Name: VV9D3 

Function: Calculates magnitude of length 3 double precision vector. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

ABVAL (V) , where V is a double precision 3-vector. 
Other Library Modules 



Execution Time (microseconds): 300.2 
Input Arguments: 



Type 
Vector(3) 

Output Results: 
Type 
Scalar 

Errors Detected: 
Error # 



Precision 
DP 



Precision 
DP 



Cause 



How Passed Units 

R2^0 th element " 



How Passed Units 

F0 



Fixup 



None 

Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

This routine will generate incorrect results if the input vector element is greater than 

SQRT(7.2370055773322600e + 75). 

Algorithm: 

Loads R5 with literal 3, then continues with the VV9DN algorithm. 
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VV10D3 



Secondary Entry Name: VV9DN 

Function: Calculates magnitude of length n double precision vector. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

ABVAL (V) , where V is a double precision vector of length n, 
n * 3 . 



Execution Time (microseconds): 226.6 + 24.4n 
Input Arguments: 



Type 


Precision 


Vector(n) 


DP 


Integer(n) 


SP 


Output Results: 




Type 


Precision 


Scalar 


DP 


Errors Detected: 




Error # 


Cause 



How Passed 

R2->0 th element 
R5 



How Passed 
F0 



Units 



Units 



Fixup 
None 

Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

This routine will generate incorrect results if the input vector element is greater than 

SQRT(7.2370055773322600e + 75). 

Algorithm: 

Uses loop counting down size (n), each pass squaring an element of input vector 
and adding to accumulated value in F0; after loop, calls DSQRT to obtain final 
result in F0. 
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VV10D3 
Secondary Entry Name: VV10DN 
Function: Creates unit vector of length n for input vector of length n in double precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

UNIT (V) , where V is a double precision vector of length n, 

n * 3 . 
Other Library Modules 



Execution Time (microseconds): 259.7 + 47. 8n 

Input Arguments: 

Type Precision How Passed Units 

Vector(n) DP R4^0 th element 

Integer(n) SP R5 

Output Results: 
Type Precision How Passed Units 

Vector(n) DP R2^0 th element 

Errors Detected: 
Error # Cause Fixup 

28 Every element of input vector is Return input vector 

Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

This routine will generate incorrect results if the input vector element is greater than 

SQRT(7.2370055773322600e + 75). 

Algorithm: 

Uses loop to sum squares of elements of input vector. Calls DSQRT to get square 
root of sum. Uses loop to divide each element of input vector by square root value 
and store into result vector. 



6-226 November 2005 



HAL/S Compiler System Specification 



USA003089 
32.0/17.0 



VV10S3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: VV1 0S3 Size of Code Area 46 Hw 


Stack Requirement: 24 Hw Data CSECT Size: 2 Hw 




Intrinsic X Procedure 


Other Library Modules Referenced: SQRTVVOSN 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VV10S3 

Function: Creates unit vector of length 3 for input 3-vector in single precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

UNIT (V) , where V is a single precision 3-vector. 
Other Library Modules 



Execution Time (microseconds): 236.4 

Input Arguments: 
Type Precision 

Vector(3) SP 



How Passed 
R4^0 th element 



Output Results: 
Type Precision 

Vector(3) SP 

Errors Detected: 
Error # Cause 



How Passed 
R2^0 th element 



Units 



Units 



Input vector has all elements=0 



Fixup 

Return input vector 



28 

Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3. 

This routine will generate incorrect results if the input vector element is greater than 

SQRT(7.2370055773322600e + 75). 

Algorithm: 

Loads R5 with literal 3, then continues with VV10SN algorithm. 
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VV10S3 



Secondary Entry Name: VV9SN 

Function: Calculates magnitude of single precision vector of length n. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

ABVAL (V) , where V is a single precision vector of length 
n, n £ 3 . 

Other Library Modules 



Execution Time (microseconds): 118.9 + 14. On 
Input Arguments: 



Type 
Vector(n) 


Precision 
SP 


Integer(n) 


SP 


Output Results: 
Type 
Scalar 


Precision 
SP 


Errors Detected: 
Error # 


Cause 



How Passed 

R2->0 th element 
R5 



How Passed 
F0 



Units 



Units 



Fixup 
None 

Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3. 

This routine will generate incorrect results if the input vector element is greater than 

SQRT(7.2370055773322600e + 75). 

Algorithm: 

Uses loop counting down size (n), each pass squaring an element of input vector 
and adding to accumulated value in F0. After loop, calls SORT to obtain final result 
in F0. 
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VV10S3 
Secondary Entry Name: VV10SN 
Function: Creates unit vector of length n for input vector of length n in single precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

UNIT (V) , where V is a single precision vector of length n, 
n * 3 . 



Execution Time (microseconds): 130.6 + 32. 8n 
Input Arguments: 



Type 
Vector(n) 

Integer(n) 

Output Results: 
Iyp_e 
Vector(n) 

Errors Detected: 
Error # 
28 



Precision 
SP 

SP 



Precision 



SP 



Cause 



How Passed 

R4^0 th element 
R5 



How Passed 
R2^0 th element 



Units 



Units 



Fixup 



Sum of squares of all elements=0 Return zero vector 

Comments: 

Registers Unsafe Across Call: F0.F1 ,F2,F3. 

This routine will generate incorrect results if the input vector element is greater than 

SQRT(7.2370055773322600e + 75). 

Algorithm: 

Uses loop to sum squares of elements of input vector. Calls SQRT to get square 
root of sum. Uses loop to divide each element of input vector by square root return 
value and store into result vector. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VX6D3 Size of Code Area 36 
Stack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 



VX6D3 

_ Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VX6D3 

Function: Forms cross product of 2 double precision 3-vectors. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

X*Y, where X and Y are double precision vectors of 
length 3 . 

Other Library Modules: 



Execution Time (microseconds) 137.6 
Input Arguments: 



Type 
Vector(3) 

Vector(3) 


Precision 
DP 

DP 


How Passed Units 
R2^0 th element " 
R3^0 th element " 


Output Results: 
Type 
Vector(3) 


Precision 
DP 


How Passed Units 
R1^0 th element " 


Errors Detected: 
Error # 


Cause 


Fixup 



None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Direct code, no loops, to calculate cross product: 
(X 2 Y 3 - X 3 Y 2 , X 3 Y-| - X1Y3, XiY 2 - X 2 Y-|) 
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VX6S3 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: VX6S3 Size of Code Area 22 


Hw 


Stack Requirement: Hw Data CSECT Size: 


Hw 


X Intrinsic Procedure 




Other Library Modules Referenced: None 





ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VX6S3 

Function: Performs vector cross product of two single precision length 3 vectors. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

X*Y, where X and Y are single precision vectors of 
length 3 . 

Other Library Modules: 



Execution Time (microseconds): 78.0 
Input Arguments: 



Precision How Passed Units 

SP R2^0 th element 

SP R3^0 th element 



Precision How Passed Units 

SP R1^0 th element 

Cause Fixup 



Type 
Vector(3) 

Vector(3) 
Output Results: 

Vector(3) 

Errors Detected: 
Error # 
None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,F0,F1 ,F2,F3. 

Algorithm: 

Direct code, no loops, to calculate. 

(X 2 Y 3 - X 3 Y 2 , X 3 Y-| - X1Y3, XiY 2 - X 2 Y-|) 
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6.3.4 Character Routine Descriptions 

This subsection presents those routines which manipulate character data. Routines 



which convert to and from character data are not included here, 
found under Section 6.3.6. (Miscellaneous Routine Descriptions). 



Such routines are 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: CASPV Size of Code Area 64 
S tack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 



CASPV 

_ Hw 
> Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CASPV 

Function: Assigns a partition of a character string to a temporary string in a 
virtual accumulator. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

...C$(I TO J)..., where C is a Character string. 



X Other Library Modules: 



CPASP 

Execution Time (microseconds): 
if p = 0:43.8 
if p > 0: 

52.0 + 3.8 (if I is even) 
+ 9.4k (if k is odd) 
+ 13.1k (if I is even) 
where p = minimum (J-l+1 , 255) 
k = ceiling (P/2) 



Input Arguments: 




Type 


Precision 


Character 


- 


Integer(l) 


SP 


Integer(J) 


SP 


Output Results: 




Type 


Precision 


Character 


- 


(temporary) 





How Passed 

R2^descriptor 

R5 

R6 

How Passed 
R1 -^descriptor 



Units 



Units 
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Errors Detected: 
Error # 
17 



Cause 

Indices out-of-bounds for input string 



Fixup 

Set out-of-bounds index 

to first or last character of 

string 



Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,R6. 



Algorithm: 

Several checks for possible errors are made before the transfer of characters is 
actually done. The index to the first character (I) is checked to be not less than 1 . If 
it is, then set to 1 . The index to the last character (J) is checked to be less than the 
length of the source string. If it is greater, then the index is set equal to the current 
length. Next, if J < I, the fixup is the NULL string. If the input actually is the NULL 
string, then no error is signaled. Finally, if the partition length exceeds the max 
length of the destination string, then the partition is truncated. All that remains to be 
done is the halfword-by-halfword transfer. The character count is incremented by 
one before dividing by two so that the halfword count is rounded to the next highest 
halfword if the character count was odd. 

If I (the first character index) is odd then the transfer is straightforward. If even, 
then there are alignment problems to work around. The odd byte of the first 
halfword to move must not be moved, so halfwords crossing the "natural" halfword 
boundary are moved instead. 



m 



R2 



R5 



3 4 



8 
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CASPV 



Secondary Entry Name: CASP 

Function: Assigns a partition of a character string to a receiver string. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

Cl = C2j T0 j, where CI and C2 are character variables, and 

I and J are integers . 
Other Library Modules: 



Execution Time ( 


microseconds): 




if p = 


: 41.0 






if p>0 










49.2 


+ .8 


(if p = maxlength(CI)) 






+ 3.8 


(if 1 is even) 






+ 9.4k 


(if 1 is odd) 






+ 13.1k 


(if 1 is even) 




where 


p = minimum (J-l+1 , maxlength(CI)) 
k = ceiling (P/2). 


Input Arguments 








Type 


Precision 


How Passed Units 


Character(C2) 


- 




R2^descriptor - 


Integer(l) 


SP 




R5 


Integer(J) 


SP 




R6 


Output Results: 








Type 


Precision 


How Passed Units 


Character(CI) 


- 




R1 ^descriptor - 


Errors Detected: 








Error # 


Cause 


FiXL 



17 Index out-of-bounds for input string Set out-of-bounds index 

to first or last character of 
string 
Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,R6. 

Algorithm: 

Same as CASPV, except destination is a variable instead of a temporary. 
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CASV 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: CASV Size of Code Area 28 
Stack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 



_ Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CASV 

Function: Character assign for output; assigns string from data to I/O buffer area. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 



X Other Library Modules: 



COUTP, CINP 
Execution Time (microseconds): 

if C2 is null string: 29.2 

if C2 * null string: 40.2 + 9.4 (ceiling (P/2-1 )) + .8 
(if length(C2)>maxlength(C1)), 
where p=minimum (length(C2), maxlength(CI)). 



Input Arguments: 
Type 
Character 

Output Results: 
Type 
Character 

Errors Detected: 
Error # 



Precision How Passed Units 

R2^descriptor 

Precision How Passed Units 

R1 ^descriptor 



Cause Fixup 



None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5. 
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Algorithm: 

First, the max length of the destination string is set to 255. Then, the length 
descriptor halfword of both the source string and the destination string are 
examined. The min of the max length of the destination and the current length of 
the source is taken as the new currlength of the destination. Next, the number of 
halfwords to move is found by incrementing the character count by one (in case the 
character count is odd) and dividing by two. If the source is a null string, the routine 
exits. If the character count is odd, the last byte in the string is moved anyway 
since it is always ignored. The assignment is made by moving the string halfword- 
by-halfword to the location specified by the destination pointer. 
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CASV 



Secondary Entry Name: CAS 

Function: Character assignment, non-partitioned. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

Cl = C2 , where CI and C2 are character strings 



X Other Library Modules: 



CIN 
Execution Time (microseconds): 
if input is null string: 32.0 
if input * null string: 43 + 9.4 * (ceiling(P/2-1 )), 
where p = length of input character string. 

Input Arguments: 

Precision 



How Passed 
R2^descriptor 

How Passed 
R1 ^descriptor 



Fixup 



Units 



Units 



Type 
Character(C2) 

Output Results: 
Type Precision 

Character(CI) 

Errors Detected: 
Error # Cause 

None 

Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5. 

Algorithm: 

Same as CASV, except MAXLEN of destination is not set to 255, but left with 
original MAXLEN value. 
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CATV 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: CATV Size of Code Area 76 
Stack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 



_ Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CATV 

Function: Catenates two character strings and stores into a temporary. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 
x| |y 
Other Library Modules: 



Execution Time (microseconds): 

Times depend on whether first source string = destination string and whether the 
first source string has an odd character count creating an alignment problem, 
if X is null string and Y is null: 52.2 
if X and Y are not both null: XTIME + YTIME 
XTIME: if X is null string: 24.0 

if X * null string: 29.8 + 9.4 * (ceiling (P/2)) 
where p = length(X). 
YTIME: if Y is null string: 27.8 
if Y is * null string: 
52.1 + 14.1 *(ceiling(Q/2-1)) 1 if p is odd 

+ 6.0 (if P+Q is odd) J 

32.3 + 9.4 * (ceiling (Q/2)) if p is even 

where Q= minimum (length(Y), 255- P). 



Input Arguments: 
Type 

Character(X) 
Character(Y) 

Output Results: 

Character(temporary) 

Errors Detected: 
Error # 
None 



Precision How Passed 
R2^descriptor 
R3^descriptor 



Units 



Precision 



Cause 



How Passed 
R1 ^descriptor 

Fixup 



Units 
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Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,R6,R7,F0,F1 . 

Algorithm: 

The lengths of the source strings are checked against the destination string for 
legal values. The second source string may be truncated if its length + that of the 
first source string exceed the length of the destination. If the first source string and 
the destination string are the same string (found by comparing addresses), then 
only the second source string is moved. After checking these things, the routine 
needs only to actually move the strings. The first is a straight halfword-by-halfword 
move. If its length is odd, then there is the alignment problem to contend with. The 
second string is moved starting where the first one left off. 

See description of CASPV for what is done when the first source string has an odd 
character count. 
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CAT 
Secondary Entry Name: CAT 
Function: Catenates two character strings and stores into a third string. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

Not used yet. 
Other Library Modules: 



Execution Time (microseconds): N/A 




Input Arguments: 
Type Precision 
N/A 
N/A 


How Passed 

R2^descriptor 

R3^descriptor 


Units 


Output Results: 
Type Precision 
N/A 


How Passed 
R1 ^descriptor 


Units 


Errors Detected: 
Error # Cause 
None 


Fixup 




Comments: 






N/A 






Algorithm: 







N/A 
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CINDEX 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: CINDEX Size of Code Area 52 
Stack Requirement: 
Intrinsic 



18 Hw 



Data CSECT Size: 
Procedure 







Hw 
Hw 



X 



Other Library Modules Referenced: GTBYTE 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CINDEX 

Function: Performs HAL/S INDEX function: finds occurrence of one character 
string within another. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

INDEX (A, B), where A and B are character strings; B is 
searched for within A. 

Other Library Modules: 



Execution Time (microseconds): 
if A is null: 32.8 
if B is null: 38.0 
if length(B) > length(A): 44.8 
if result = 0: 

JA KA, 

time= 38.0+ [S £(15.4 + KBj + KB J+M ) + 16.4 + KB,] 

1=1 j=i 

where JA = 2 * (length(C1 ) - length(C2))+1 
KA|= # of compares required to determine that 

C1$(length(C2)atl)*C2 
KB X = 14.4 if X is even 
1 5.6 if X is odd 
if result * 0: 

result KA, 

time= 29.6+ [Z £(15.4 + KBj + KB J+M ) + 16.4 + KB,] 

1=1 j=i 
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where KA|= # of comparisons required to determine that 
C1$(length(C2) at I) * C2 if I * result. 
length(C2) if I = result. 

KB X is as above 
Input Arguments: 



Type 

Character(A) 

Character(B) 

Output Results: 
Type 
Integer 

Errors Detected: 
Error # 
None 



Precision How Passed 
R2^descriptor 
R4^descriptor 



Precision How Passed 



Units 



Units 



SP 



Cause 



R5 



Fixup 



Comments: 

Registers Unsafe Across Call: R5,F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

1) If either string is null, return zero. 

2) Set pointer to first character of A. 

3) If size of B exceeds size of A, beyond A pointer, return zero. 

4) Loop on size of B, comparing elements of A and B beginning at current A 
pointer; on non-equality go to step 6. 

5) Comparison loop in 4 succeeded, return current A pointer. 

6) Increment A pointer by one byte, go to step 3. 
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CLJSTV 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 






Source Member Name 


CLJSTV 


Size of Code Area 


40 


Hw 


Stack Requirement: 


18 Hw 
Referenced 


Data CSECT Size: 
X Procedure 
GTBYTE.STBYTE 


2 


Hw 


Intrinsic 


Other Library Modules 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CLJSTV 

Function: Left justifies a character string to a specified length by 

1 ) padding on the right with blanks if too short; 

2) truncating on the right if too long. 
Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

LJUST(A,B) , where A is a character string and B is an 
integer . 

Other Library Modules: 



Execution Time (microseconds): 



34.0 + 


2.8 


(if 


B<255) 






+ 


2.0 


(if 


n>0) 






+ 


40.8n 










+ 


1.6 


(if 


n is odd) 






+ 


0.4 


(if 


m<0) 






+ 


1.0 


(if 


m is odd and n is even) 




- 


1.0 


(if 


m is odd and n is odd) 




+ 


23.8m 










where n 


length(A) 








m = 


maximum(B-n,0) 






Input Arguments: 












Type 






Precision 


How Passed 


Units 


Character(A) 






- 


R4^descriptor 


- 


Integer(B) 






SP 


R5 


- 


Output Results: 












Type 






Precision 


How Passed 


Units 


Character(temporary) 




- 


R2^descriptor 


- 


Errors Detected: 












Error # Cause 








Fixuo 



18 



Input string length greater than requested Truncate input string 
size or B<0 to specified size 
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Comments: 

Registers Unsafe Across Call: F0,F1 . 

Algorithm: 

Compares requested length to 255 and retains smaller as L; compares L with input 
string length: 

• if greater, truncates on right to length L and moves to output; 

• if same, moves input string unchanged to output; 

• if less, pads on right with blanks and moves to output. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: CPAS Size of Code Area 80 

Stack Requirement: 
Intrinsic 



20 Hw 



Data CSECT Size: 
Procedure 



CPAS 

Hw 
Hw 



X 



Other Library Modules Referenced: GTBYTE.STBYTE 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CPAS 

Function: Assigns a character string to a partition of another string. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

C2j to j = CI, where CI and C2 are character strings 



X Other Library Modules: 



CPASP, CINP 

Execution Time (microseconds): 

LHP 

34.2 + KA + Z (5.6 + K CLOU t + k) + KD 

k=1 
NCHAR 

+ Z (7.6 + KC| +K -1 + KF k ) + KE 
k=1 

RHP 

+ Z (5.6 + KC| +L | N . 

k=1 

where 

LOUT = length(C2) before assignment 
LIN = length(C1) 
KA = 25.4ifJ<LOUT 
34.0 if J>LOUT 



) + KG 



LPART = 


= J-l+1 (length of partition) 


KB = 


= 9.2 if LPART>0 and LPART<LIN 




13.8 if LPART>0 and LPART>LIN 




otherwise 


LHP = 


= l-LOUT-1 


KC X = 


= 1 9.2 if X is odd 




17.2 if X is even 
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KD = 4.0ifl_HP<0 
otherwise 

NCHAR = MINIMUM(LPART,LIN) 

KE = .8 if NCHAR = Note that in summations if start_index > end 

index 
if otherwise then summation goes to 0. 



KF X = 1 5.6 if X is odd 








14.4 if X is even 








RHP = LPART-LIN 








KG = .4ifRHP<0 








otherwise 








Input Arguments: 








Type 


Precision 


How Passed 


Units 


Character string(source)(C1) 


- 


R4^descriptor 


- 


Integer(l) 


- 


R5 


- 


Integer(J) 


- 


R6 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Character(destination)(C2) 


- 


R2^descriptor 


- 


Errors Detected: 








Error # Cause 






Fixup 


1 7 Index out-of-bounds for destination string or J<l-1 


Set out-of-bounds to 








first or last character 








of destination 



Comments: 

Registers Unsafe Across Call: F0,F1. 

Algorithm: 

First, the length of the partition is compared to the length of the source. If the 
source is longer, truncate it. If the destination partition is longer, then pad with 
blanks. The character count is determined and the string is moved byte-by-byte 
with the GTBYTE and STBYTE routines. 
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CPASP 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name: Size of Code Area 18 Hw 
CPASP 

146 Data CSECT Size: 



Stack Requirement: 
Hw 







Hw 



Intrinsic 



X Procedure 



Other Library Modules Referenced: CASPV.CPAS 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CPASP 

Function: Assigns a partition of a character string into a partition of another character 

string. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

C2 K T0 L = Clj T0 j; CI and C2 are character strings and 

I,J,K,L are integers. 

Other Library Modules: 



Execution Time (microseconds): 42.8 + time for CASPV and CPAS. 
Input Arguments: 



Character(source)(C1 ) 
Integer(l) 
Integer(J) 
lnteger(K||L) 

Output Results: 

Character(destination)(C2) 

Errors Detected: 
Error # Cause 

17 



Precision How Passed Units 

R4^descriptor 
SP R5 

SP R6 

(SP||SP) R7 

Precision How Passed Units 

R2^descriptor 

Fixup 



Subscript of character string out of Set out-of-bounds value to 
bounds first or last character of 

associated string 

Comments: 

Registers Unsafe Across Call: F0,F1 . 

Algorithm: 

The input partition is put into a VAC by the CASPV routine. The index arguments 
of the destination string and pointers are set up for the CPAS routine, that then 
moves the contents of the VAC into the destination string. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: CPR Size of Code Area 46 

Stack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 







CPR 

Hw 
Hw 



Other Library Modules Referenced: None. 



X 



X 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CPR 

Function: Compares two character strings for '=' or V' and sets condition code. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

IF CI = C2..., where CI and C2 are character strings. 
Other Library Modules: 

CPRA 
Execution Time (microseconds): 

If C1 and C2 do not halfword compare and K>2: 

setup + 11.6J + 12.9 
If K is even or K = and C1 and C2 halfword compare 1 up 

setup + 11. 6n + 20.1 
If K is odd and C1 = C2 up till the K th character: 

setup + 11. 6n + 29.9 
If K is odd and only the last characters compared differ 

setup + 11. 6n + 20.3 
where: 

K = minimum(length(C1), length(C2)) 
setup = 23 + 0.4 (if length(C2)<length(C1)) 
J = number of matching halfword compares 
n = floor (K/2) 



the K ,h character: 



Input Arguments: 

Character(CI) 
Character(C2) 

Output Results: 
Type 
Equal/not equal 



Precision How Passed Units 

R2^descriptor 
R3^descriptor 

Precision How Passed Units 

Condition code 
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Errors Detected: 
Error # Cause Fixup 

None 

Comments: 

In order to not change the condition code after the comparisons and before exiting, 
instructions that change the c.c. are replaced by those that do not change it. For 
example, LH is replaced by IHL and SLL. 
Registers Unsafe Across Call: R2,R3,R4,R5,R6. 

Algorithm: 

See CPRC entry. 
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CPRC 
Secondary Entry Name: CPRC 

Function: Compares two character strings for collating sequence and sets condition 
code. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

IF CI < C2 . . . , or any other relational operator, except 

' = ', or ' ^', where CI and C2 are character 
strings . 

Other Library Modules: 



Execution Time (microseconds): Same as CPR 
Input Arguments: 



Type 

Character(CI) 

Character(C2) 

Output Results: 
lype 
Relation 

Errors Detected: 
Error # 
None 



Precision 



Precision 



Cause 



How Passed 

R2^descriptor 

R3^descriptor 



How Passed 
Condition code 

Fixup 



Units 



Units 



Comments: 
See CPR 
Registers Unsafe Across Call: R2,R3,R4,R5,R6. 

Algorithm: 

Find the smaller of the lengths of the two strings to be compared. Compare this 
many characters halfword-by-halfword, and compare the upper bytes of the last 
halfwords separately if the character count is odd. If any of these comparisons are 
unequal, then return the resultant condition code. If all are equal, then compare the 
lengths of the two strings, and return the resultant code. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: CPRA Size of Code Area 22 

Stack Requirement: 
Intrinsic 



22 Hw 



Data CSECT Size: 
Procedure 







CPRA 

. Hw 
Hw 



X 



Other Library Modules Referenced: CPR 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CPRA 

Function: Compares arrays of character strings when the arrays are located in 
structures for '=' or V and sets the condition code. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

IF SI = S2, where SI and S2 are structures, 
nodes is a length n array 
strings . 

Other Library Modules: 



one of whose 
of character 



Execution Time (microseconds): 

NCMp 

23.2 + £ (18.2 + CPRTIME k ) - 14.2 (if arrays are not equal) 

k=1 



where 
NCMP 

CPRTIMEx = 



number of elements in arrays if arrays are equal, index of first 
nonmatching character strings in arrays if arrays not equal, 
time in CPR for S1.C$(X:) and S2.C$(X:) where C is the node 
for the array of character strings. 



Input Arguments: 










Type 




Precision 


How Passed 


Units 


Character array 




- 


R2->0 th element 


- 


Character array 




- 


R3->0 th element 


- 


lnteger(#Hw in ea. 


string) 


SP 


R6 


- 


Integer(# of array cells) 


SP 


R7 


- 


Output Results: 










Type 




Precision 


How Passed 


Units 


Equal/not equal 




- 


Condition code 


- 


Errors Detected: 










Error # 




Cause 


Fixup 




None 
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Comments: 

Registers Unsafe Across Call: None 

Algorithm: 

Pointers to character strings within the array are set, then CPR routine called. If all 
pairs of strings within the array are equal, result of CPRA is "equal", otherwise the 
result is "not equal". 
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CRJSTV 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: CRJSTV Size of Code Area 46 
Stack Requirement: 
Intrinsic 



18 Hw 



Data CSECT Size: 
Procedure 



Hw 
Hw 



X 



Other Library Modules Referenced: GTBYTE.STBYTE 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CRJSTV 

Function: Right-adjusts a character string to a specified length by: 

1) padding on left with blanks if too short; 

2) truncating on left if too long. 
Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

RJUST(A,B), where A is a character string, and B is an 
integer . 

Other Library Modules: 



Execution Time (microseconds): 

N BLANK 

34.8 + KA + £ (6.8 + KBk) + KC 



k=1 
NCHAR 



+ 2 (5.6 + KD k + KB nblank+ k) + KE 



k=1 



where: 



KA = 


if B>255 




2.8 if B<255 


NBLANK = 


B-length(A) if B>length(A) 




otherwise 


KB X = 


1 9.2 if X is odd 




17.2 if X is even 


KC = 


1.2 if NBLANK>0 




otherwise 


NCHAR = 


length(A) 


KD X = 


1 5.6 if X is odd 




14.4 if X is even 


KE = 


.4 if NCHAR=0 




otherwise 
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Input Arguments: 
Type 

Character(A) 
Integer(B) 

Output Results: 
Type 
Character(temporary) 

Errors Detected: 
Error # Cause 
18 



Precision 
SP 

Precision 



How Passed 

R4^descriptor 

R5 

How Passed 
R2^descriptor 



Units 



Units 



Fixup 



Input string length greater than input size or B<0 Truncate input string 

on left to proper size 
Comments: 

Registers Unsafe Across Call: F0,F1. 

Algorithm: 

Compares requested length to 255 and retains smaller as L; Compares current 
length with L: 

if greater, truncates on left and moves to input; 

if same, moves string to output; 

if less, pads on left and moves input string to output. 
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CTRIMV 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: CTRIMV Size of Code Area 94 Hw 
Stack Requirement: 18 Hw Data CSECT Size: Hw 



Intrinsic X Procedure 



Other Library Modules Referenced: GTBYTE.STBYTE 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CTRIMV 

Function: Implements HAL/S TRIM function - strips leading and trailing blanks 
from a character string. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

TRIM(C), where C is a character string. 
Other Library Modules: 



Execution Time (microseconds): 
If length(C) = 0: 30.4 
If length(C) = 1 and C is a blank: 64.0 
If length(C) = 1 and C is not a blank: 102.8 
If length(C) > 1 and all blank 
44.6 + KA+ 13.2KB 
where: 
KA = if length(C) is even 

19.4 if length(C) is odd 
KB = floor (length(C)/2) 

If length(C) > 1 and not all blank 

60.4 + KA + 13.2 * KB + KC + KD(11.6 * KE + 13.6 + KF) 

NCHAR 

+ E(39.2 + KG KH+ k-i+Kl k ) 

k=1 



where: 



KA = if length(C) is even 

19.4 if length(C) is odd and C$(#) is blank 
18.4 if length(C) is odd and C$(#)*blank and C$(#)*null 
22.4 if length(C) is odd and C$(#)*blank and C$(#)=null 
KB = # halfwords = blank||blank at the beginning of C 

KC = if index of first non blank character is odd and this character = null 

4.8 if index of first non blank character is odd and this character = 
null 
9.0 if index of first non blank character is even. 
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KD 
KE 
KF 



if length(C) is odd and (C$(#)*blank, 1 otherwise. 

# halfwords = blank||blank at the end of C 

if index of last untrimmed character is even and this character * 

null 

3.6 if index of last untrimmed character is even and this character = 

null 

4.4 if index of last untrimmed character is odd. 



NCHAR = 


length of result. 




KG X 


if X is even 
2.0 if X is odd 




KH 


index of first non 


blank character 


Kl x 


if X is odd 
1 .2 if X is even 




Input Arguments: 






Type 


Precision 


How Passed Units 


Character(C) 


- 


R4^descriptor - 


Output Results: 






Type 


Precision 


How Passed Units 


Character(temporary) 


- 


R2^descriptor - 


Errors Detected: 






Error # 


Cause 


Fixuo 



None 

Comments: 

Registers Unsafe Across Call: F0,F1. 

Algorithm: 

Because there are no character or byte compare instructions on the AP-101, the 
routine first tests length of string. If odd, it sets R7 to 1 . "Length" is shifted right 1 , 
resulting in length in # of halfwords (-1 if odd). Compares first halfword with bb, 
continues comparing consecutive halfwords of string with bb, until a halfword that is 
not equal to bb is found. Then tests this halfword to see if first byte is b. Adds 
length of string in halfwords to pointer to string, resulting in a pointer to end of 
string. Compares last halfword of string with bb. If equal, then moves pointer back 
a halfword and again compares. When a halfword not equal to bb is found, the 
halfword is tested to see if it is C b or CC (where C stands for any character). 
Length of string is appropriately adjusted and routine branches to a character move 
loop. 
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6.3.5 Array Function Routine Descriptions 

This subsection presents those routines which are classed as "ARRAY FUNCTIONS" 
by the HAL/S Language Specification. These are routines which operate upon arrayed 
arguments and produce a single element result. 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name: DM AX Size of Code Area 10 

Stack Requirement: Hw Data CSECT Size: 
X Intrinsic Procedure 







DM AX 

Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: DM AX 

Function: Finds maximum value in a double precision scalar array. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

MAX(<DP array>) 
Other Library Modules: 



Execution Time (microseconds): 

1 7.6L + 1 4.6m + 1 1 .4, where L = # of times CURRMAX changes; 

M = # of times CURRMAX does not change, L+M = (# of elements in array) 1 . 

Input Arguments: 
Type 
Scalar array 

Integer(size) 

Output Results: 
Type 
Scalar 

Errors Detected: 
Error # 
None 



Precision 


How Passed 


Units 


DP 


R2^0 th element 


- 


SP 


R5 


- 


Precision 


How Passed 


Units 



DP 



Cause 



F0 



Fixup 



Comments: 

Registers Unsafe Across Call: R2,R4,R5,F0,F1. 

Algorithm: 

A loop is set up to compare each element of the array to the current max. Initially, 
the first element is CURRMAX. Each subsequent element of greater value 
replaces the former CURRMAX. The counter is decremented after each 
comparison. The value of CURRMAX when the counter is zero is the max of the 
array and is passed back to the calling program. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: DMIN Size of Code Area 10 

Stack Requirement: 
Intrinsic 







Hw 



X 



Data CSECT Size: 
Procedure 







DMIN 

. Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: DMIN 

Function: Finds minimum value in a double precision scalar array. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

MIN(<DP scalar array>) 
Other Library Modules: 



X 



Execution Time (microseconds): 

1 7.6L + 1 4.6m + 1 1 .4, where L = # of times CURRMIN changes; 

M = # of times CURRMIN does not change, L+M = (# of elements in array)-1 . 

Input Arguments: 



Type 
Scalar array 

Integer(size) 


Precision 
DP 

SP 


How Passed 

R2^0 th element 
R5 


Units 


Output Results: 
Type 
Scalar 


Precision 
DP 


How Passed 
F0 


Units 


Errors Detected: 
Error # 


Cause 


Fixuo 





None 

Comments: 

Registers Unsafe Across Call: R2,R4,R5,F0,F1 . 

Algorithm: 

Similar to MAX functions, except register contains the current minimum and is 
changed when an element in the array has a smaller value than CURRMIN. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: DPROD Size of Code Area 14 
Stack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 







DPROD 

Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: DPROD 

Function: Calculates the product of the elements of a double precision scalar array. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

PROD(<DP scalar array>) 
Other Library Modules: 



Execution Time (microseconds): 

20. 6n + 6.2 if product is not zero, where n = # of elements in the array. 20.6m + 2.6 
if product is zero, where m is the index into the linear representation of the array of 
the first zero element. 



Input Arguments: 
Type 
Scalar array 

Integer(size) 

Output Results: 
Type 
Scalar 

Errors Detected: 
Error # 
None 



Precision How Passed 



Units 



DP 
SP 



R2^0 th element 
R5 



Precision How Passed 



Units 



DP 



Cause 



F0 



Fixup 



Comments: 

Registers Unsafe Across Call: R2,R4,R5,F0,F1 . 

Algorithm: 

Similar to the algorithm for the SUM functions. An accumulator is initialized to one. 
The value in the accumulator is multiplied by each element of the array; the result 
of each multiplication is saved in the accumulator. After each multiplication, the 
result is checked for a zero product. If the product is ever zero, the routine exits 
and returns to zero. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: DSUM Size of Code Area (L 
Stack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 



DSUM 

_ Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: DSUM 

Function: Calculates the sum of the elements of a double precision scalar array. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

SUM(<DP scalar array>) 
Other Library Modules: 



Execution Time (microseconds): 

7.2+1 1 .6n, where n=# of elements in the array. 

Input Arguments: 



Type 
Scalar array 

Integer(size) 


Precision 
DP 

SP 


How Passed 

R2->0 th element 
R5 


Units 


Output Results: 
Type 
Scalar 


Precision 
DP 


How Passed 
F0 


Units 


Errors Detected: 
Error # 


Cause 


Fixuo 





None 

Comments: 

Registers Unsafe Across Call: R2,R4,R5,F0,F1 . 

Algorithm: 

An accumulator (F0, F1 ) is initialized to zero. Each element of the array is added to 
the accumulator in a loop based upon the array size. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: EMAX Size of Code Area 8 

Stack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 







EMAX 

Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: EMAX 

Function: Finds maximum value in a single precision scalar array. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

MAX(<SP scalar array>) 
Other Library Modules: 



Execution Time (microseconds): 

9.8 + 10.8m + 12.2L, where m = # of times CURRMAX does not change; L = # of 
times CURRMAX changes; and M+L = (# of elements in array)-1 . 

Input Arguments: 

How Passed Units 

R2^0 th element " 
R5 



Type 
Scalar array 


Precision 
SP 


Integer(size) 


SP 


Output Results: 
Type 
Scalar 


Precision 
SP 


Errors Detected: 
Error # 


Cause 



How Passed 
F0 



Units 



Fixup 
None 

Comments: 

Registers Unsafe Across Call: R2,R4,R5,F0. 

Algorithm: 

Same as DMAX except that operations are all single precision. 
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EMIN 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: EMIN Size of Code Area 8 

Stack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 



_ Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: EMIN 

Function: Finds minimum value in a single precision scalar array. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

MIN(<SP scalar array>) 
Other Library Modules: 



Execution Time (microseconds): 

9.8 + 10.8m + 12.2L, where m = # of times CURRMIN does not change; 
L = # of times CURRMIN changes; and M+L = (# of elements in array)-1 . 

Input Arguments: 

How Passed Units 

R2^0 th element " 
R5 



Type 
Scalar array 


Precision 
SP 


Integer(size) 


SP 


Output Results: 
Type 
Scalar 


Precision 
SP 


Errors Detected: 
Error # 


Cause 



How Passed 
F0 



Units 



Fixup 
None 

Comments: 

Registers Unsafe Across Call: R2,R4,R5,F0. 

Algorithm: 

Same as DMIN, except operations are in single precision floating point. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: EPROD Size of Code Area 10 
Stack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 



EPROD 



Hw 
Hw 







Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: EPROD 

Function: Calculates product of elements of a single precision scalar array. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

PROD(<SP scalar array>) 
Other Library Modules: 



Execution Time (microseconds): 

1 3.2n + 4.6 if product is not zero, where n = # of elements in the array. 1 3.2m + 1 .4 
if product is zero, where m = index into the linear representation of the array of the 
first zero element. 

Input Arguments: 



Type 
Scalar array 

Integer(size) 


Precision 
SP 

SP 


How Passed 

R2^0 th element 
R5 


Units 


Output Results: 
Type 
Scalar 


Precision 
SP 


How Passed 
F0 


Units 


Errors Detected: 
Error # 
None 


Cause 


Fixup 




Comments: 

Registers Unsafe Across Call: 


R2,R4,R5,F0,F1. 




Algorithm: 

Same as DPROD. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: ESUM Size of Code Area 6 

Stack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 







ESUM 

Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: ESUM 

Function: Calculates sum of elements of a single precision scalar array. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

SUM(<SP scalar array>) 
Other Library Modules: 



Execution Time (microseconds): 

5.2 + 6.6n, where n = # of elements in the array. 

Input Arguments: 



Type 
Scalar array 

Integer(size) 


Precision 
SP 

SP 


How Passed 

R2->0 th element 
R5 


Units 


Output Results: 
Type 
Scalar 


Precision 
SP 


How Passed 
F0 


Units 


Errors Detected: 
Error # 
None 


Cause 


Fixup 




Comments: 

Registers Unsafe Across Call: 


R2,R4,R5,F0,F1. 




Algorithm: 

Same as DSUM. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: HMAX Size of Code Area 8 
Stack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 







HMAX 

Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: HMAX 

Function: Finds maximum value in a single precision integer array. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

MAX(<SP integer array>) 
Other Library Modules: 



Execution Time (microseconds): 

1 1 .0 + 7.8m + 9.2k, where m = # of times CURRMAX does not change; k = # of 
times CURRMAX changes; and m+k = (# of elements in array)-1 . 

Input Arguments: 

How Passed 



Type 
Integer array 


Precision 
SP 


Integer(size) 


SP 


Output Results: 
Type 
Integer 


Precision 
SP 


Errors Detected: 
Error # 
None 


Cause 



Units 



R2^0 th 
element 
R5 

How Passed 
R5 

Fixup 



Units 



Comments: 

Registers Unsafe Across Call: R2,R4,R5,R6. 

Algorithm: 

Same as DMAX, except that all operations deal with halfword integers. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: HMIN Size of Code Area 8 
Stack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 







HMIN 

Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: HMIN 

Function: Finds minimum value in a single precision integer array. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

MIN(<SP integer array>) 
Other Library Modules: 



Execution Time (microseconds): 

1 1 .0 + 7.8m + 9.2k, where m = # of times CURRMIN does not change; k = # of 
times CURRMIN changes; and m+k = (# of elements in array)-1 . 

Input Arguments: 



Type 
Integer array 

Integer(size) 


Precision 
SP 

SP 


How Passed 

R2->0 th element 
R5 


Units 


Output Results: 
Type 
Integer 


Precision 
SP 


How Passed 
R5 


Units 


Errors Detected: 
Error # 


Cause 


Fixuo 





None 

Comments: 

Registers Unsafe Across Call: R2,R4,R5,R6. 

Algorithm: 

Same as DMIN, except that operations are for halfword integers. 
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HPROD 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: HPROD Size of Code Area U 
Stack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 







Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: HPROD 

Function: Calculates product of elements of a single precision integer array. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

PROD(<SP integer array>) 
Other Library Modules: 



Execution Time (microseconds): 

12.4n + 5.8 if product is not zero, where n = # of elements in array. 12.4m + 2.2 if 
product is zero, where m = index into the linear representation of the array of the 
first zero element. 



Input Arguments: 
Type 
Integer array 

Integer(size) 

Output Results: 
Type 
Integer 

Errors Detected: 
Error # 
None 



Precision 
SP 

SP 



Precision 
SP 

Cause 



How Passed Units 

R2^0 th element " 
R5 



How Passed 
R5 



Fixup 



Units 



Comments: 

Registers Unsafe Across Call: R2,R4,R5,R6. 

Algorithm: 

Same as DPROD. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: HSUM Size of Code Area 6 
Stack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 







HSUM 

Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: HSUM 

Function: Calculates sum of elements of a single precision integer array. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

SUM(<SP integer array>) 
Other Library Modules: 



Execution Time (microseconds): 

4.4 + 5.4n, where n = # of elements in the array. 

Input Arguments: 

How Passed 

R2->0 th element 
R5 

How Passed 



Type 
Integer array 


Precision 
SP 


Integer(size) 


SP 


Output Results: 
Type 
Integer 


Precision 
SP 


Errors Detected: 
Error # 
None 


Cause 


Comments: 




Warning: 





Units 



Units 



R5 



Fixup 



The HSUM routine will return incorrect results if the sum of the elements in the 
single precision integer array is greater than 32767 or less than -32768. Fixed- 
point overflow occurs for this range, but will not be detected if the program status 
word is set to mask out the overflow. 
Registers Unsafe Across Call: R2,R4,R5,R6. 

Algorithm: 

Same as DSUM. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: I MAX Size of Code Area 8^ 

Stack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 



I MAX 

. Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: I MAX 

Function: Finds maximum value in a double precision integer array. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

MAX(<DP integer array>) 
Other Library Modules: 



Execution Time (microseconds): 

11.1+ 7.8m + 4.3k, where m = # of times CURRMAX does not change, k = # of 
times CURRMAX changes, and m+k = # of elements in array-1 . 

Input Arguments: 



Type 
Integer array 

Integer(size) 


Precision 
DP 

SP 


How Passed 

R2->0 th element 
R5 


Units 


Output Results: 
Type 
Integer 


Precision 
DP 


How Passed 
R5 


Units 


Errors Detected: 
Error # 


Cause 


Fixuo 





None 

Comments: 

Registers Unsafe Across Call: R2,R4,R5,R6. 

Algorithm: 

Same as DMAX, except that all operations are on fullword integers. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: IMIN Size of Code Area 8 

Stack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 







IMIN 

Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: IMIN 

Function: Finds minimum value in a double precision integer array. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

MIN(<DP integer array>) 
Other Library Modules: 



Execution Time (microseconds): 

11.1 + 7.8m + 9.3k, where m = # of times CURRMIN does not change, k = # of 
times CURRMIN changes, and m+k = # of elements in array-1 . 

Input Arguments: 



Type 
Integer array 

Integer(size) 


Precision 
DP 

SP 


How Passed 

R2->0 th element 
R5 


Units 


Output Results: 
Type 
Integer 


Precision 
DP 


How Passed 
R5 


Units 


Errors Detected: 
Error # 


Cause 


Fixuo 





None 

Comments: 

Registers Unsafe Across Call: R2,R4,R5,R6. 

Algorithm: 

Same as DMIN, except that all operations are done for fullword integers. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: IPROD Size of Code Area 22 
Stack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 



IPROD 



Hw 
Hw 







Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: IPROD 

Function: Calculates product of elements in a double precision integer array. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

PROD(<DP integer array>) 
Other Library Modules: 



Execution Time (microseconds): 

17.0L + 21.6m + 5.8 if product is not zero, where L = # of positive intermediate 
products; m = # of negative intermediate products; L+m = # of elements in array. 
17.0L + 21.6m + 19.6 if product is not zero, where L and m are as above, L+m = 
(index into linear representation of the array of the first zero elemental . 

Input Arguments: 

How Passed 



Type 
Integer array 

Integer(size) 

Output Results: 
Iy_pe 
Integer 

Errors Detected: 
Error # 
None 



Precision 
DP 

SP 



Precision 
DP 



Cause 



Units 



R2^0 th element 
R5 

How Passed 
R5 

Fixup 



Units 



Comments: 

Registers Unsafe Across Call: R2,R4,R5,R6,R7. 

Algorithm: 

Same basic algorithm as DPROD, however, special detection of an overflow 
condition is performed: For fullword integer multiplication, the overflow indicator is 
only set when -1 is multiplied by -1 . The result after each multiplication is checked 
for an overflow by testing the first 32 bits of the 64 bit result for all zeros or ones. If 
the result does overflow 32 bits, then a fixed point overflow is forced by adding a 
very large number to the first register of the pair (the register with the overflowing 
bits). 



6-271 



November 2005 



HAL/S Compiler System Specification 



USA003089 
32.0/17.0 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: ISUM Size of Code Area (L 

Stack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 



ISUM 

Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: ISUM 

Function: Calculates sum of elements in a double precision integer array. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

SUM(<DP integer array>) 
Other Library Modules: 



Execution Time (microseconds): 

4.4 + 5.4n, where n = # of elements in array. 

Input Arguments: 



Type 
Integer array 

Integer(size) 


Precision 
DP 

SP 


How Passed 

R2->0 th element 
R5 


Units 


Output Results: 
Type 
Integer 


Precision 
DP 


How Passed 
R5 


Units 


Errors Detected: 
Error # 
None 


Cause 


Fixup 




Comments: 

Registers Unsafe Across Call: R2,R4,R5,R6. 




Algorithm: 

Same as DSUM. 
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6.3.6 Miscellaneous Routine Descriptions 

This subsection presents those routines which do not fall easily into the previous five 
sections. These encompass conversion routines as well as "service" routines used by 
other library members. 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: BTOC Size of Code Area 28 
S tack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 



BTOC 

_ Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: BTOC 

Function: Conversion from bit data to character data. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 



X 



CHARACTER, 



©BIN 



(<bit string;^ 



Other Library Modules: 
Execution Time (microseconds): 161.0 (for 16-bit string) 
Input Arguments: 



Type 

Bit 

Integer(length) 


Precision 
SP 


How Passed 

R5 

R6 


Units 


Output Results: 
Type 
Character 


Precision 


How Passed 
R2^descriptor 


Units 


Errors Detected: 
Error # 


Cause 


Fixuo 





None 



Comments: 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,R6,R7. 

Algorithm: 

First, unwanted bits are shifted out of the string, using the length argument. Then, 
bits are shifted one by one out of the top of R5 into the bottom of R4, where they 
are shifted to bit positions 1 5 and 31 and converted to character format. The output 
string is stored halfword by halfword, with the length taken directly from the input 
length. 
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CSHAPQ 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: CSHAPQ Size of Code Area 40 Hw 
Stack Requirement: 18 Hw Data CSECT Size: 4 Hw 



Intrinsic X Procedure 



Other Library Modules Referenced: CTOH.CTOI.CTOE.CTOD 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CSHAPQ 

Function: Shapes arrayed character data to arrayed numeric data of an 
explicit type and precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

INTEGER N (CA) , INTEGER @D0UBLE/N (CA) , SCALAR N (CA), 

SCALAR @D0UBLE<N (CA) , where CA is a character array of 

length n of CHARACTER (m) . 

Other Library Modules: 



Execution Time (microseconds): 

For halfword INTEGER conversion: 

n 

25.2 + X (19.6 + CTOH K ) 

k=1 

where CTOH K = time in CTOH for the K th conversion. 
Forfullword INTEGER conversion: 

n 

24.8 + £ (20.2 + CTOI K ) 

k=1 

where CTOI K = time in CTOI for the K th conversion. 
For fullword SCALAR conversion: 

n 

25.2 + £ (19.6 + CTOE K ) 

k=1 

where CTOE K = time in CTOE for the K th conversion. 



6-274 November 2005 



HAL/S Compiler System Specification 



USA003089 
32.0/17.0 



For double-word SCALAR conversion: 

n 

22.8 + Z (22.8 + CTOD K ) 

k=1 

where CTOD K = time in CTOD for the K th conversion. 
Input Arguments: 



Type 


Precision 


How Passed 


Units 


Character array(n) 


- 


R4^1st element 


- 


Integer(n) 


SP 


R5 


- 


lnteger(type *) 


SP 


R6 


- 


Integer(m) 


SP 


R7 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Array(n) 


Type 


R2 


- 


Errors Detected: 








Error # 


Cause 


Fixup 




None 








Comments: 








Registers Unsafe Across Call: 


F0,F1,F2,F3,F4,F5. 




type*: 


O^H conversion 
1^1 conversion 
2->E conversion 
3->D conversion 





Algorithm: 

The address of one of 4 internal loops is loaded from a table using the type code as 
an index and control is passed to that loop. The four internal loops are similar in 
action: a call is made to the appropriate character conversion routine (CTOH, 
CTOI, CTOE, CTOD) followed by the appropriate store (STH, ST, STE, STED) into 
the result array, followed by instructions to bump both the character and result 
array pointers, looping on n. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: CSLD Size of Code Area 246 

Stack Requirement: 
Intrinsic 



22 Hw 



Data CSECT Size: 
Procedure 



CSLD 



Hw 
Hw 



X 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CSLD 

Function: Loads bit pattern of a character string. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

B=SUBBIT(C) where B is a bit string and C is a character 
string . 

Other Library Modules: 



X 



Execution Time (microseconds): 

if length(C) = 0: 28.8 

if length(C) > 0: 56.3 + 0.8 (if length(C) > 4) 

Input Arguments: 

Precision 



Type 
Char string 

Output Results: 
Type 
Bit string 

Errors Detected: 
Error # 
None 



Precision 
Length 32 



Cause 



How Passed 
R2^descriptor 



How Passed 
R5 



Units 



Units 



Fixup 



Comments: 

If input string is null, the bit string is returned; no error. 
Registers Unsafe Across Call: R5,F0,F1. 

Algorithm: 

The first character is set to 1 by clearing R5. The character width is set to the 
current length of the string. For the rest, see the description under entry CSLDP, 
after the character partition checking, at the point marked [A]. 
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CSLD 



X 



Secondary Entry Name: CPSLD 

Function: Loads specified bits of a character string. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

BIT_STRING = SUBBIT FIRST T0 LAST (CHAR_STRING) ; 

where the 'TO' subscript may be replaced by the 
'AT' subscript under rules given by matrix types 

Other Library Modules: 



Execution Time (microseconds): 71.8 
Input Arguments: 



Char string 
lnteger(first bit) 
lnteger(last bit) 

Output Results: 
Type 
Bit string 

Errors Detected: 
Error # Cause 



Precision 

SP 
SP 

Precision 
Length(32) 



How Passed Units 
R2->descriptor - 
R5 
R6 

How Passed Units 
R5 



30 



Subbit partition out of range 



Fixup 

1 ) If first bit<1 , set to 1 (keep constant 
partition width by adjusting last bit) 

2) If first or last bit>last bit of 
character string, set equal to last 
bit of char string 

Comments: 

If input string is null, ERROR 30 is sent and the bit string is returned. 
Registers Unsafe Across Call: R5,F0,F1. 

Algorithm: 

The subbit partition is tested for validity before anything else is done. All ERROR 
30s are sent during these tests. 4 halfwords containing the required partition are 
loaded into a register pair. Unwanted bits are shifted off the top (left shift count = 
first bit-1), and the bottom (right shift count = 64-width), leaving the required string 
in R5. 
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CSLD 



Secondary Entry Name: CPSLDP 

Function: Loads selected bits of a partitioned character string. 

Invoked By: 
X I Compiler emitted code for HAL/S construct of the form: 



BIT_STRING = SUBBIT AT0 B (CHAR_STRING C T0 D ) ; 

where either or both of the 'TO' subscripts may 
be replaced by 'AT' subscripts under rules 
given by matrix types 

Other Library Modules: 



Execution Time (microseconds): 98.6 + 9.2 (if C is even) 
Input Arguments: 



Type 

Char string 
Integer(C) 
Integer(D) 
lnteger(A||B) 

Output Results: 

Bit string 

Errors Detected: 
Error # 



Precision 

SP 
SP 

(SP||SP) 

Precision 
Length(32) 

Cause 



How Passed 

R2^descriptor 

R5 

R6 

R7 



How Passed 
R5 



Units 



Units 



Fixup 

(See CSLDP) 

(See CPSLD) 



1 7 Character subscript out of legal range 

30 Subbit partition out of legal range 

Comments: 

Registers Unsafe Across Call: R5,F0,F1. 

Algorithm: 

The character partition is checked for validity, and the bit string is returned if last 
character < first character. Then the subbit partition is checked, resetting the bit 
pointer to point 8 bits farther on if the character partition begins in the second 
character of a halfword. 4 halfwords containing the required partition are loaded 
into register pair R4-R5. Unwanted bits are shifted off the top (shift count = relative 
1st bit-1) and the bottom (shift count = 64-bit width), leaving the desired string in 
R5. 
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CSLD 
Secondary Entry Name: CPSST 
Function: To store a bit string into specified bits of a character string. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

SUBBIT A T0 B (CHAR_STRING) = BIT_STRING; 

where the 'TO' subscript may be replaced with the 
'AT' subscript under rules given by matrix types 



Other Library Modules: 






Execution Time (microseconds): 114.4 






Input Arguments: 








Type 


Precision 


How Passed 


Units 


Bit string 


- 


R4 


- 


lnteger(first bit) 


SP 


R5 


- 


lnteger(last bit) 


SP 


R6 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Char string 


- 


R2^descriptor 


- 


Errors Detected: 








Error # 


Cause 




Fixup 


30 


Subbit partitior 


i out of legal range 


(See CPSLD) 



Comments: 

CPSST cannot change the current length of the input character string. In particular, 
a null character string input will result in a null string output. 
Registers Unsafe Across Call: R5,F0,F1. 

Algorithm: 

Set character partition width to the current length of the character string. If it is 0, 
exit immediately after sending ERROR 30. 

[B] Test subbit partition for validity, and send ERROR 30 if anything is bad. Find 
the first halfword containing the specified partition. The first bit relative to that 
halfword, and the bit partition width thus: 
bit width = last bit- first bit + 1 
first halfword = 1 + (first bit - 1 )/1 6 
relative first bit = first bit - 1 6(first halfword - 1 ) 

Load 4 halfwords, beginning with the first halfword of the partition, into register pair 
R4-R5. 
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Prepare a mask with 0s in the specified bit positions and 1s elsewhere as the 1s 
complement of: 

(2bit width_-| \/264-relative last bit\ 

where relative last bit = relative first bit + bit width - 1 . 

Use this mask to mask out the old bits in R4-R5. Shift the input bit string left by (64- 
relative last bit) positions to align it with the specified bit positions. Then OR it into 
the contents of R4-R5. Store this back into the character string, and exit. 
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CSLD 



Secondary Entry Name: CPSSTP 

Function: To store a bit string into specified bits of a partitioned character string. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

SUBBIT A T0 B (CHAR_STRING C T0 D ) = BIT_STRING; 



X 



where either 
replaced by 
matrix types 

Other Library Modules: 



or both of the 
'AT' subscripts 



'TO' subscripts may be 
under rules given by 



Execution Time (microseconds): 145.0 + 9.2(if C is even) 
Input Arguments: 



Type 

Integer(C) 
Integer(D) 
lnteger(A||B) 
Bit string 

Output Results: 
Type 
Character string 

Errors Detected: 
Error # 



Precision How Passed 



Units 



SP 
SP 

(SP||SP) 



Precision 



Cause 



R5 
R6 
R7 
R4 

How Passed 
R2^descriptor 



Units 



Fixup 

1 7 Character subscript out of legal range (See CSSTP) 

30 Subbit partition out of legal range (See CPSST) 

Comments: 

CPSSTP cannot change the current length of the input character string. 
Registers Unsafe Across Call: R5,F0,F1. 

Algorithm: 

Check character partition for validity, give any error 1 7s necessary, and exit if last 
char < first char or currlen = 0. Reset character pointer to 1 halfword before the first 
halfword of the specified partition, bumping first and last bits by 8 if the first 
character is even (so lies in low-order 8 bits of the halfword) after checking validity 
of first bit, and sending error 30 if it is < 1 . Then continue as [B] of CPSST. 
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CSLD 



Secondary Entry Name: CSLDP 

Function: Loads bit pattern of a partitioned character string. 

Invoked By: 



J WIDTH AT FIRST' 



X Compiler emitted code for HAL/S construct of the form: 

BIT_STRING = SUBBIT A T0 B (CHAR_STRING K 

where the 'AT' subscript may be replaced by the 
'TO' subscript under rules given by matrix 
types 

Other Library Modules: 



Execution Time (microseconds): 69.7 + 0.8 (if WIDTH > 4) 

+ 4.0 (if FIRST is even) 



Input Arguments: 




Tvpe Precision 


How Passed Units 


Character string 


R2^descriptor 


lnteger(first char) SP 


R5 


lnteger(last char) SP 


R6 


Output Results: 




Type Precision 


How Passed Units 


Bit string Length(32) 


R5 


Errors Detected: 




Error # Cause 


Fixup 


1 7 Character subscript out 


1 . If < 1 , set to 1 


of legal range 


2. If > length of string, set to length(string) 




3. If last char < first char, return string 



Comments: 

bit string returned if last character specified < first character specified (with 

ERROR 17). 

Registers Unsafe Across Call: R5,F0,F1. 

Algorithm: 

The character partition is checked for validity before anything else is done. All error 
17s are sent during this phase. [A] The partition width is checked, and if it is < 0, 
the zero string is returned in R5. If greater than 4, it is set to 4. The address of the 
halfword containing the first character of the partition is found by adding 1/2(1 +first 
character) to the address of the first halfword of the string. This halfword and the 
next two halfwords are loaded into the low half of R4, and the high and low halves 
of R5, respectively. Unwanted bits are masked off the left and shifted off the right 
(shift count = 48-8*width), and the desired bit string is left in R5. 
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CSLD 



Secondary Entry Name: CSST 

Function: Stores a bit string into a character string. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

SUBBIT(C) = B, where B is a BIT string and C is a character 
string . 

Other Library Modules: 



Execution Time (microseconds): 

if length(C) = 0: 26.6 

if length(C) > 0: 135.8 + 1.0 (if length(C) > 4) 

Input Arguments: 



Type 
Bit string 


Precision 


How Passed 
R4 


Units 


Output Results: 
Type 
Char string 


Precision 


How Passed 
R2^descriptor 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 





None 

Comments: 

If the length of the input character string is 0, no error is given, and nothing is 
changed. CSST cannot change the length of the input string. 
Registers Unsafe Across Call: R5,F0,F1. 

Algorithm: 

The first character is set to 1 by clearing R5, the character width is set to the current 
length of the string. Processing continues as at [A] in the description of the 
algorithm at entry CSSTP. 
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CSLD 



Secondary Entry Name: CSSTP 

Function: To store a bit string into a partitioned character string. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

SUBBIT C T0 D (CHAR_STRING A T0 B ) = BIT_STRING; 

where either or both of the 'TO' subscripts may be 
replaced by 'AT' subscripts under rules given by 
matrix types 

Other Library Modules: 



Execution Time (microseconds): 

148 + KA + KB, where KA = 1 .0 if B-A>4, otherwise 
KB = 9.2 if A is even, otherwise 

Input Arguments: 

Precision 



Type 

Bit string 

lnteger(first char) SP 

lnteger(last char) SP 

Output Results: 
Type Precision 

Char string 

Errors Detected: 
Error # Cause 

17 Character subscript out of 

legal range 



How Passed 

R4 

R5 

R6 



How Passed 
R2^descriptor 



Units 



Units 



Fixup 

(See CSLDP), except if last char < first 

char, then leave input string unchanged 



Comments: 

Registers Unsafe Across Call: R5,F0,F1. 

CSSTP cannot change the current length of the character string: gives error if 

subscript is out of current legal range. 

Algorithm: 

The character partition is checked for validity, and ERROR 17 is sent if anything is 
bad. 
[A] The character partition width is checked. If it is < 0, then the input 
character string is returned unchanged. If > 4, then it is set to 4. The first 
bit and last bit are determined as: 
First bit = 1 + 8* (first character-1) 
Last bit = First bit + 8*character width - 1 
The first bit, last bit, and character width of the string are then sent to [B] under 
entry CPSST. 
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CSTRUC 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: CSTRUC Size of Code Area 12 
Stack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 







Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CSTRUC 

Function: Compares two structures and returns result (= or *) in condition code. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

If SI = S2 THEN..., where SI and S2 are structures. 
Other Library Modules: 



X 



Execution Time (microseconds): 

5.4 + 10.4n, n = # halfwords compared. 

Input Arguments: 



Structure 
Structure 
Integer(count) 

Output Results: 
Type 
Equal/not equal 

Errors Detected: 
Error # 
None 



Precision 



SP 



Precision 



Cause 



How Passed Units 

R2^1 st Hw 

R3^1 st Hw 

R5 Hw 

How Passed Units 

Condition code 

Fixup 



Comments: 

In order that the correct code is in the condition code on exit, it is reset immediately 
before branching back to the calling program (BCRE does not set the condition 
code). An exclusive OR of a register with itself sets condition code to '00'(=). An 
OR of a nonzero register (R4 is used because, as the return address register, it is 
always assumed to be nonzero) resets condition code to "1 1'H- 
Registers Unsafe Across Call: R2,R3,R4,R5,R6. 

Algorithm: 

The two structures are compared halfword by halfword until a pair does not match, 
or all of the halfwords are compared and found to be equal. The condition code is 
set by the compare instruction. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: CTOB Size of Code Area 32 

Stack Requirement: 18 Hw Data CSECT Size: 2 

Intrinsic X Procedure 



CTOB 

Hw 
Hw 



Other Library Modules Referenced: GTBYTE 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CTOB 

Function: Conversion from character string data to bit string. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

BIT @BIN (C), where C is a character string. 
Other Library Modules: 



Execution Time 


[microseconds): 


NCHAR 




25.8 + 


Z (27.8 + K£ 

k 1 


> k + KB + KC) 


where: 


NCHAR = 


length(C) 




KA X 


1 .2 if X is odd 
if X is even 




KB 


6.0 if C$(K)='1' 
otherwise. 




KC 


4.4 if C$(K)=blank 
otherwise. 


Input Arguments 






Type 


Precision 


How Passed 


Character 


- 


R2^descriptor 


Output Results: 






Type 


Precision 


How Passed 


Bit 


Length=31 


implicitly R5 


Errors Detected: 






Error # 


Cause 





Units 



Units 



Input string not in standard format 



Fixup 

Return zero bit string 



29 

Comments: 

If the input string includes more than 32 digits, then high-order bits will be lost. Null 
string input causes an error. 

Registers Unsafe Across Call: R5,F0,F1 . 
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Algorithm: 

Characters are examined one by one. Blanks are ignored. When a '1' is 
encountered, a '1' bit is shifted into the low-order bit of the result register. When a 
'0' is encountered, a '0' bit is shifted into the low-order bit of the result register. 
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CTOE 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: CTOE Size of Code Area 319 Hw 
Stack Requirement: 38 Hw Data CSECT Size: 2 Hw 



Intrinsic X Procedure 



Other Library Modules Referenced: GTBYTE 



ENTRY POINT DESCRIPTIONS 

Primary Entry Name: CTOE 

Function: Performs internal character to single precision scalar conversion. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

SCALAR (<character string>) or 
SCALAR@S INGLE (<character string>) 



X Other Library Modules 
CSHAPQ 

Execution Time (microseconds): 

88.4 + 11.0* (floor * (# leading blanks/2)) 

+ 1 2.0 (if # leading blanks odd) 

+ 1 0.2 *(# trailing blanks) 

+ 2.0 (if + sign) 

+ 7.0 (if -sign) 

+ 59.6 * (# significant digits where S k < X4E1 9999A) 

+ 1 7.6 * (# significant digits) 

+ 47.2 (if at least 1 significant digit) 

+ 62.4 * (# significant digits where S k > X4E1 9999A) 

+ 20.6 (if decimal point) 

+ 9.6 (if no exponents of any kind) 

+ 40.2 (if any exponents) 

+ 9.6 * (# E type exponents) 

+ 1 5.2 * (# H type exponents) 

+ 1 8.2 * (# B type exponents) 

+ 9.8 * (# exponents) 

+ 37.8 * (# additional exponents) 

+ 0.2 * (# exponents with V sign) 

+ 7.8 * (# exponents with "-' sign) 

+ 24.6 * (total number of exponent digits) 

+ 22.8 (if any B or H exponents) 
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+ 7.6 * (total B exponent mod 4) 
+ 1 4.0 (if p=0) 

+ r (17.8 + 27.8 div(|p|,23)) (if p positive) 1 

+ I (1 8.8 + 28.8 div(p,23)) (if p positive) I 

+ I 23.2 *((# significant zeroes in the binary I 

I representation of |p| mod 23) - 1 I 

I (if |p| mod 23 is even) I 

+ I 36.2 *((# significant ones in the binary hfp^O 

I representation of |p| mod 23) - 1 I 

I (if |p| mod 23 is odd) I 

+ I 14.2 (if |p| mod 23*0) I 

+ I 28.0 I 

+ L 1.6 (if p < 0) J 
+ 1 4.4 * ((# of even indexed characters after leading blanks) + 1 ) 
+ 1 5.6 * ((# of odd indexed characters after leading blanks) + 1 ) 

where p = total of E type exponents - (# significant digits after decimal point). 

Input Arguments 

Type Precision How Passed Units 

Character - R2^descriptor 



Precision 
SP 



Cause 



How Passed 
F0 



Input string not in standard format 



Units 



Fixup 
Return 



Output Results: 

Scalar 

Errors Detected: 
Error # 
20 

Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

First, leading and trailing blanks are stripped from the input string, and an error is 
signaled if the string has length = or consists entirely of blanks. Next, a scalar is 
constructed from the digits of the input string to the left of the exponent. The 
construction proceeds as follows: 

First, we set S = 0. Now, at the k th step, k > 1 , we let S k =1 0*S k _i+d k , where d k is 

the k th digit in the string. All calculations are double scalar. When S k becomes > 
X'4E19999A', all further digits are insignificant and are scanned for validity but 
otherwise ignored. 
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This yields a scalar which may be incorrect by a power-of-10 multiple, but 
otherwise represents the decimal number of the left of the exponent. As for the 
power of 10, if a decimal point is encountered while scanning the input string, a 
count is kept of how many digits there are to the right of the decimal point in the 
input string. The negative of this count is stored in temporary location COUNTE for 
later use. 

Next, the type of exponent (if any) is determined, and the value is calculated with a 
simple fixed-point calculation (ab 10 = 10a + b) and added to COUNTH, COUNTB, 
or COUNTE accordingly as the type of exponent is hexadecimal, binary, or 
decimal. Continue this process as long as there are remaining exponents. 
If the end of the string is reached with no invalid characters found, then the scalar is 
modified according to the exponents already computed. First, the power-of-2 
exponents are combined as 4H + B, since 

16 H *2 B = 2 4H + B . 
The high part of this (power of 1 6) is added to the exponent of the scalar, while the 
low 2 bits control a loop in which the scalar is doubled 0-3 times. 
Next, the decimal exponent, which has been combined with the correction for the 
decimal point in the input, is used as a power of 10 in the standard way of taking 
integral powers. The scalar intermediate is multiplied or divided by this result 
according to the sign of the exponent, completing the conversion. 
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CTOE 
Secondary Entry Name: CTOD 

Function: Performs internal character to double precision scalar conversion. 
Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

SCALAR @D0UBLE (<character string>) 



X Other Library Modules 
CSHAPQ 

Execution Time (microseconds): Time is computed by CTOE formula - 1 .8. 

Input Arguments: 

Type Precision How Passed Units 

Character - R2^descriptor 

Output Results: 
Type Precision How Passed Units 

Scalar DP F0.F1 

Errors Detected: 
Error # Cause Fixup 

20 Input string not in standard format Return 

Comments: 

Registers Unsafe Across Call: F0,F1 ,F2,F3,F4,F5. 

Algorithm: 

Same routine as CTOE; all conversions result in a double precision value of which 
the portion in F1 is discarded when single precision is desired by the caller of this 
routine. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: CTOI Size of Code Area 104 

Stack Requirement: 
Intrinsic 



20 Hw 



Data CSECT Size: 
Procedure 



CTOI 

Hw 
2 Hw 



X 



Other Library Modules Referenced: GTBYTE 



X 



X 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CTOI 

Function: Converts a character string to a double precision integer. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

INTEGER@DOUBLE (<character string>) or 
BIT@DEC(<character string>) . 

Other Library Modules: 

CSHAPQ 
Execution Time (microseconds): 

k + 11.0* (floor *(# leading blanks/2)) 
+ 1 8.6 (if # leading blanks odd) 
+ 9.4 (if '-' sign) 

+ 1 0.6 (if first character is a number) 
+ 1 5.6 * (# even index characters after leading blanks) 
+ 14.4 * (# odd index characters after leading blanks) 
+ 13.0 (if # trailing blanks > 0) 
+ 8.4 * (# trailing blanks) 
+ 28.2 * ((# non blank characters) - 1 ) 

where k = 72.6 

Input Arguments: 
Type 
Character 

Output Results: 
Type 
Integer 

Errors Detected: 
Error # 
22 

Comments: 

Registers Unsafe Across Call: R5,F0,F1 . 



Precision 



Precision 
DP 



Cause 



How Passed 
R2^descriptor 

How Passed 
R5 



Units 



Units 



Input string not in standard format 



Fixup 
Return 
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Algorithm: 

First, leading blanks are stripped from the input string. If a minus sign is 
encountered, a flag is set. The basic conversion proceeds as follows: Initialize io to 

0. At step k, k>1 , let i k = 10.1 k _i + d k , where d k is the k th digit in the input string. At 
the end, this fixed-point calculation gives a fullword integer. This sign is tacked on, 
and the result is shifted left 16 bits if a halfword answer is required. 
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Secondary Entry Name: CTOH 

Function: Converts a character string to a single precision integer. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

INTEGER @SINGLE (<character string>) 



X Other Library Modules: 
CSHAPQ 

Execution Time (microseconds): Same as for CTOI, except k = 74.4. 

Input Arguments: 



Type 
Character 


Precision 


How Passed 
R2^descriptor 


Units 


Output Results: 
Type 
Integer 


Precision 
SP 


How Passed 
R5 


Units 


Errors Detected: 
Error # 
22 


Cause 

Input string not in standard format 


Fixup 
Return 


Comments: 








Registers Unsafe Across Call: 


R5,F0,F1. 




Algorithm: 
See CTOI. 









CTOI 
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CTOI 



Secondary Entry Name: CTOK 

Function: Converts a character string to a 32-bit string for use with the 
@DEC of the BIT conversion function. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

BIT @DEC (<character string>) . 
Other Library Modules: 



X 



Execution Time (microseconds): 

85.8 + 11.0* (floor * (# leading blanks/2)) 

+ 1 8.6 (if # leading blanks odd) 

+ 1 5.6 * (# even index characters after leading blanks) 

+ 14.4 * (# odd index characters after leading blanks) 

+ 13.0 (if # trailing blanks > 0) 

+ 8.4 * (# trailing blanks) 

+ 28.2 * (# non blank characters - 1 ) 



Input Arguments: 
Type Precision 

Character 

Output Results: 
Type Precision 

Bit string 32-bit 

Errors Detected: 
Error # Cause 

22 Input string not i 

Comments: 

Registers Unsafe Across Call: R5,F0,F1 

Algorithm: 
See CTOI. 



How Passed 
R2^descriptor 


Units 


How Passed 
R5 


Units 


tandard format 


Fixup 
Return 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: CTOX Size of Code Area 60 
Stack Requirement: 18 Hw Data CSECT Size: _ 

Intrinsic X Procedure 



CTOX 

Hw 
4 Hw 



Other Library Modules Referenced: GTBYTE 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CTOX 

Function: Conversion from character string to bit string, hexadecimal radix. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 



X 



BIT @HEX (C), where C is a character string. 
Other Library Modules: 



Execution Time (microseconds): 

NCHAR 

32.0+ X (33.6 + KA k + Kb k ) 

k=1 



where: 








NCHAR = 
KA X = 

KB X = 


length(C)' 

if C$(X) is alphabetic 

6.8 if C$(X) is numeric 
1 .2 if X is odd 






if X is even 






Input Arguments 
Type 
Character 


Precision 


How Passed Units 
R2^descriptor 




Output Results: 
Type 
Bit 


Precision 
32 bits 


How Passed Units 
R5 




Errors Detected: 
Error # 
32 


Cause 

String not in standard hexadecimal conversion format 


Fixup 
Return 


Comments: 









Imbedded blanks, or leading or trailing blanks, are all considered invalid characters. 
An input string too long to be accommodated in 32 bits will cause high order bits to 
be lost. 

Registers Unsafe Across Call: R5,F0,F1 . 
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Algorithm: 

Characters are fetched one by one. In the CTOX entry, characters 'A' - 'F are 
converted to their bit equivalents, characters '0' - '9' are passed on to the common 
section, and an error is signaled if the input character lies between X'39' and X'41' 
(DEU characters '9' and 'A respectively). In the CTOO entry, an error is sent if the 
character is greater than X'37' (DEU character '7'). Other characters are passed to 
the common section for translation. 

In the common section, decimal digits 0-9 (0-7 for octal) are translated to their bit 
equivalents, and an error is sent if the character precedes '0' in the collating 
sequence. These bit equivalents, and the ones passed from the CTOX section, are 
shifted into the low-order 4 bits (3 for octal) of the result register. 
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CTOX 



Secondary Entry Name: CTOO 

Function: Conversion from character string to bit string, octal radix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

BIT @0CT (C), where C is a character string. 
Other Library Modules: 



Execution Time (microseconds): 

NCHAR 

33.4 + £(34.2 + KA k ), 

k=1 

where: 
NCHAR = length(C), 
KA X = 1.2 if X is odd 
otherwise. 

Input Arguments: 
Type Precision 

Character 

Output Results: 
Type Precision 

Bit 32-bits 

Errors Detected: 
Error # Cause 



How Passed 
R2^descriptor 

How Passed 
R5 



Units 



Units 



Fixup 



String not in standard octal conversion format Return 



31 

Comments: 

Registers Unsafe Across Call: R5,F0,F1. 

Algorithm: 
See CTOX. 
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DSLD 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: DSLD Size of Code Area 22 
Stack Requirement: 
Intrinsic 



18 Hw 



Data CSECT Size: 
Procedure 



Hw 
Hw 



X 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: DSLD 

Function: Loads specified bits of a double precision scalar. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

SUBBIT(SCALAR_VAR @D0UBLE ) ; 

SUBBITFIRST TO LAST (SCALAR_VAR @D0UBLE ) . 

Other Library Modules: 



X 



Execution Time (microseconds): 36.5 
Input Arguments: 



Type 


Precision 


How Passed 


Units 


Scalar 


DP 


R2^Scalar 


- 


lnteger(first bit) 


SP 


R5 


- 


lnteger(last bit) 


SP 


R6 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Bit string 


Length 32 


R5 


- 


Errors Detected: 








Error # 


Cause 




Fixup 


30 


Subbit partition out of range 


1) If first bit<1 , set to 1 








2) If last bit>64, set to 64 



Comments: 

Registers Unsafe Across Call: R5 

Algorithm: 

Get the double word operand in register pair R2-R3. If first bit - 1 < 0, then give 
ERROR 30 and set to 0. Use first bit 1 as left shift count to eliminate unwanted 
high order bits. Compute 64 - last bit + first bit - 1 , and give ERROR 30 and set to 
if it is < 0. Use this as right shift count to justify bit string in R3. Return contents 
ofR3. 
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DSST 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: DSST Size of Code Area 54 



Hw 



S tack Requirement: 18 Hw 
Intrinsic 



Data CSECT Size: 
X Procedure 



Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: DSST 

Function: Stores a bit string into selected bits of a double precision scalar. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

SUBBIT A AT B (DOUBLE_SCALAR) = BIT_STRING 

Other Library Modules: 



X 



Execution Time (microseconds): 64.6 
Input Arguments: 



Type 

Integer(A) 
Integer(B) 
Bit string 


Precision 

SP 

SP 


How Passed 

R5 

R6 

R7 


Output Results: 
Type 
Scalar 


Precision 
DP 


How Passed 
R2^Scalar 


Errors Detected: 
Error # 
30 


Cause 

Subbit partition illegal 


Comments: 

Registers Unsafe Across Call: None 



Units 



Units 



Fixup 

1 ) If first bit < 1 , set to 1 

2) If last bit > 64, set to 64 



Algorithm: 

Check first bit. If < 1 , send error 30 and set to 1 . Save the last bit, and get the 
partition width as last bit - first bit + 1 . Create a mask of width = partition width as 
2 width . 1 | f | ast bjt < 64; shjft | eft by 64 . | ast bjt | f | ast bjt > 64; send error 30 and 

set last bit to 64 by shifting right by last bit - 64. Then invert the (doubleword) mask. 
Mask out the selected bits of the operand in storage. Then, shift the input bit string 
to the right position (left 64 - last bit, or right last bit - 64), and OR to the operand in 
storage, completing the operation. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: ETOC Size of Code Area 320 
Stack Requirement: 32 Hw Data CSECT Size: 64 
Intrinsic X Procedure 



ETOC 

Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: ETOC 

Function: Converts a single precision scalar to standard internal character-string 
format for a scalar. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

CHARACTER (SCALAR_VAR) 

Other Library Modules: 



X 



Execution Time (microseconds): 336.9 
Input Arguments: 



Type 
Scalar 

Output Results: 
Iy_pe 
Character string 

Errors Detected: 
Error # 
None 



Precision 
SP 



Precision 
Length=14 



Cause 



How Passed Units 

F0 



How Passed Units 

R2^descriptor 



Fixup 



Comments: 

Maxlength of output string is ignored. 
Registers Unsafe Across Call: F0,F1,F2. 

Algorithm: 

Clear F1 to convert to double precision. Determine the sign and get the absolute 
value of the input. If input = 0, output string is 'bO.O' padded with blanks to length 
14 (length 23 for DTOC). 

The next operation reduces the exponent of the scalar to X'41 ' keeping track of the 
change in exponent that this requires. Since log 10 x = (log 10 1 6)(log-| 6 x), this is done 
by getting (exponent - 65)*log 10 16 and using this as an exponent of 10, dividing the 
scalar by the result. It is possible for this to be off by 1 , so another pass is made 
before continuing. At this point, the number is between 1 and 16. If it is greater 
than or equal to 10, multiply by 1/10 and record the exponent as one greater. 
This causes the first decimal digit of the number to be the first hexadecimal digit of 
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the scalar, in bits 8-1 1 of F0. This is stored, together with a blank if the value is > 0, 
or a '-' if the value < 0. The remaining mantissa is in fractional form in F0-F1 . This 
hexadecimal fraction is converted to decimal digit-by-digit by successive 
multiplication by 10. One digit is generated and stored with the decimal point, then 
6 digits are stored in the next three halfwords. 

The sign of the exponent (as calculated above) is tested, and either 'E+' or 'E-' is 
stored in the next halfword. Two decimal digits of exponent are stored in the last 
halfword. 
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ETOC 
Secondary Entry Name: DTOC 

Function: Converts a double precision scalar to standard internal character-string 
format for scalar. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

CHARACTER (DOUBLE_SCALAR) 

Other Library Modules: 



X 



Execution Time (microseconds): 602.5 
Input Arguments: 



Type 
Scalar 

Output Results: 
Iy_pe 
Character string 

Errors Detected: 
Error # 
None 



Precision 
DP 



Precision 
Length=23 



Cause 



How Passed Units 

F0-F1 



How Passed Units 

R2^descriptor 



Fixup 



Comments: 

Registers Unsafe Across Call: F0,F1,F2. 

Algorithm: 

Similar to ETOC, except of course that F1 is not zeroed. Also, rather than 6 digits 
being stored in the loop, 14 are computed and stored. The exponent section also 
looks different, as one more digit is stored with the exponent, changing its 
alignment, thus storing successively '<digit>E', '± <digit>', '<digitxgarbage>' in the 
last 3 halfwords. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: ETOH Size of Code Area 14 
Stack Requirement: 
Intrinsic 



Hw 



X 



Sector 



Data CSECT Size: 
Procedure 



ETOH 

_ Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: ETOH 

Function: Converts single precision scalar value to single precision integer. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

I = S ; where I is a single precision integer, and S is a 
single precision scalar. 



X Other Library Modules: 



QSHAPQ 

Execution Time (microseconds): 15.4 

Input Arguments: 



Type 
Scalar 


Precision 
SP 


How Passed 
F0 


Units 


Output Results: 
Type 
Integer 


Precision 
SP 


How Passed 
R5 


Units 


Errors Detected: 
Error # 


Cause 


Fixuo 





None 

Comments: 

Convert overflow (Error number 3:1 0) will occur if S is outside of the range, 
-32768 < S < 32768, (hex'C4800000' < S < hex'447FFFFF') 

Warnings: 

1) The ETOH routine returns incorrect results when the input argument is 
between 32767.5 and 32768. Fixed-point overflow occurs for this range, 
but will not be detected if the program status word is set to mask out the 
overflow. 
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2) Due to the use of CVFX instruction, the precision is lost during the 
conversion for the following input arguments (S) and inputs will be 
rounded incorrectly. I denotes the integer portion of S. 

a. 1<ABS(I), and the fractional portion is slightly greater than 0.5. 

For example: S = hex '41x8000y'; where 1<x<F, 1<y<F 

b. I = 0, and the fractional portion is slightly greater than 0.5. 
For example: S = hex '408000yy'; where 01<yy<FF. 

Registers Unsafe Across Call: R5,F0. 

Algorithm: 

The six most significant hex digits of the scalar argument are converted to a 
fullword integer value. The 4 most significant hex digits of the integer value are left 
in the top halfword of the fixed point register after rounding the fraction. When the 
fractional portion of the result is less than or equal to 0.5 the result is rounded 
down, otherwise the result is rounded up. 



6-305 November 2005 



HAL/S Compiler System Specification 



USA003089 
32.0/17.0 



ETOH 



Secondary Entry Name: DTOH 

Function: Converts a double precision scalar value to a single precision integer. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

I = D; where I is a single precision integer, and D is a 
double precision scalar. 

Other Library Modules: 



Execution Time (microseconds): 17.4 

Input Arguments: 

Type Precision How Passed Units 

Scalar DP F0 



Output Results: 
Type 
Integer 

Errors Detected: 
Error # 
None 



Precision How Passed Units 



SP 



Cause 



R5 



Fixup 



Comments: 
Warnings: 

1) The DTOH routine returns incorrect results when the input argument (S) is 
in the range of 32767.50390625 < S < 32768 (hex '447FFF81 00000000' < 
S < hex'447FFFFFFFFFFFFF'). Fix point overflow occurs for this range, 
but no error will be generated if the fixed point overflow interrupt is masked 
in the program status word. 

2) Due to the use of the CVFX instruction, the precision is lost during the 
conversion for the following input arguments (S) and inputs will be rounded 
incorrectly. I denotes the integer portion of S. 

a. 1 < ABS(I), and the fractional portion is slightly greater than 0.5. 

For example: S = hex '41x8000yzzzzzzzz'; where 1 < x < F, 1 < y < F, 
and z is any number. 

b. I = 0, and the fractional portion is slightly greater than 0.5. 

For example: S = hex '408000yyzzzzzzzz'; where 01 < yy < FF and z 
is any number. 

Registers Unsafe Across Call: R5,F0. 

Algorithm: 
See ETOH. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: GTBYTE Size of Code Area 14 
Stack Requirement: 
Intrinsic 



Hw 



Da 



X 



ta CSECT Size: 
Procedure 



GTBYTE 

_ Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: GTBYTE 

Function: Fetches one character from a character string, 
manipulation by other library routines. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 



Used for character 



X Other Library Modules: 



CPAS, CTOE, CLJSTV, CINDEX, CRJSTV, CTOB, CTOI, CTOX, CRTIMV 
Execution Time (microseconds): 14.4 to obtain lower byte 

15.6 to obtain upper byte 
Input Arguments: 

Type Precision How Passed 

Pointer - R2^1 Hw in front of Hw to fetch from 

Flag (Which byte to fetch) - Lower half of R2: 

00-upper byte, X'8000'-lower byte 

Output Results: 
Type 
Single character 



Units 



Precision How Passed 



Units 



R5- upper halfword 



Errors Detected: 
Error # 
None 



Cause Fixup 



Comments: 

Registers Unsafe Across Call: R2,R4,R5,F0. 

Algorithm: 

The halfword off of the pointer is loaded into a register for manipulation. If the flag 
indicates the upper byte is requested, the register is shifted right 8 bits and the 
lower half of the register is cleared to leave only the desired byte in the upper 
halfword of the register. If the flag indicates the lower byte is requested, then the 
first byte of the register is cleared. The flag is reset to indicate the upper byte if the 
lower byte was requested and vice versa, and the pointer is updated if the fetched 
byte was even. This is done now since GTBYTE is usually called a number of 
times from a loop. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: ITOC Size of Code Area 104 
S tack Requirement: 28_ Hw Da 

Intrinsic 



ta CSECT Size: 
Procedure 







ITOC 

Hw 
Hw 



X 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: ITOC 

Function: Converts a fullword integer into standard internal character string 
format for integers. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

CHARACTER (FULLWORD_INTEGER) 

Other Library Modules: 



Execution Time (microseconds): 254.6 
Input Arguments: 



Type 
Integer 

Output Results: 
Type 
Character string 

Errors Detected: 
Error # 
None 



Precision How Passed Units 

DP R5 

Precision How Passed Units 

R2^descriptor - 

Cause Fixup 



Comments: 

No leading zeros or leading or trailing blanks. Maxlength of output area ignored. 
Registers Unsafe Across Call: None 

Algorithm: 

Digits are generated one by one. Thus: Let I = input integer. Then: 

d k = l k - 1 0(l k /1 0) integer multiply and divide. 

I k+1 =(l k -d k )/10. 
The process terminates when l k = 0. As pairs of digits are generated, they are 
stored, right to left, in a temporary output area. The temporary result is then given 
a sign if necessary and moved to the output area. If an odd number of characters 
were generated, the move is with 8 bits offset for left alignment. 
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ITOC 



Secondary Entry Name: HTOC 

Function: Converts a halfword integer into standard internal character-string 
format for integers. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

CHARACTER (HALFWORD_INTEGER) 

Other Library Modules: 



Execution Time (microseconds): 189.6 

Input Arguments: 
Type Precision 

Integer SP 



How Passed 



Output Results: 
Type Precision 

Character string 

Errors Detected: 
Error # Cause 

None 



R5 

How Passed 
R2^descriptor 

Fixup 



Units 



Units 



Comments: 

No leading zeroes or leading or trailing blanks. Maxlength of output area ignored. 
Registers Unsafe Across Call: None. 

Algorithm: 

Shift right algebraic 16 to convert single integer to double. Then proceed as in 
ITOC. 
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ITOD 

HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name: ITOD Size of Code 24 Hw 

Area 

Stack Requirement: Hw Data CSECT Size: Hw 



X Intrinsic - Sector 



Procedure 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: ITOD 

Function: Converts a double precision integer to a double precision scalar. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

D = I ; where D is a double precision scalar, and I is a 
double precision integer. 



X Other Library Modules: 



QSHAPQ 

Execution Time (microseconds): 15.6 

Input Arguments: 

Type Precision How Passed 

Integer DP R5 

Output Results: 
Type Precision How Passed 

Scalar DP F0 



Units 



Units 



Errors Detected: 
Error # 
None 



Cause 



Fixup 



Comments: 

Registers Unsafe Across Call: R4,R5,F0,F1. 

Algorithm: 

If the input argument is non-negative, then the register (F0) is loaded with 
HEX'4E800000'. F1 is then loaded with the value of the input argument. Next, the 
value HEX'4E800000 00000000' is subtracted from the (F0, F1) register pair and 
the result is returned to the calling program. 

For negative values, the algorithm is the same, except the input argument is 
complemented before any other operations are performed. Also, the value used 
when manipulating the (F0, F1) register pair is HEXCE800000 00000000' instead 
of HEX4E800000 00000000'. 
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ITOE 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: ITOE 


Size of Code 6 Hw 




Area 


Stack Requirement: Hw 


Data CSECT Size: Hw 




X Intrinsic - Sector 


Procedure 


Other Library Modules Referenced 


: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: ITOE 

Function: Converts a double precision integer to a single precision scalar. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

S = I ; where S is a single precision scalar, and I is 
a double precision integer 



X Other Library Modules: 

QSHAPQ 

Execution Time (microseconds): 12.0 

Input Arguments: 

Type Precision How Passed Units 

Integer DP R5 

Output Results: 
Type Precision How Passed Units 

Scalar SP F0 

Errors Detected: 
Error # Cause Fixup 

None 

Comments: 

Registers Unsafe Across Call: R4,R5,F0,F1. 

Algorithm: 

The integer argument is converted to floating point by the CVFL instruction and the 
binary point is adjusted by multiplication by a scale factor. 
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KTOC 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: KTOC Size of Code Area Z0 

Stack Requirement: 
Intrinsic 



Hw 



Hw 



X 



Data CSECT Size: 
Procedure 







Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: KTOC 

Function: Performs bit-string to character conversion with decimal radix. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

CHARACTER @DEC (BIT_STRING) 

Other Library Modules: 



X 



Execution Time (microseconds): 262.5 (for 16 bits) 
Input Arguments: 

Bit string 

lnteger(length of bit string) 

Output Results: 
Type 
Character string 



Errors Detected: 
Error # 



Cause 



Precision 


How Passed 


Units 


- 


R5 


- 


SP 


R6 


- 


Precision 


How Passed 


Units 


Fixuo 


R2^descriptor 





None 

Comments: 

Maxlength of output area ignored. No leading or trailing blanks. "Sign bit" of input 

string ignored. 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,R6,R7,F0,F1 . 

Algorithm: 

The length of the character string is computed as: 

1 + (log 10 2)(bit length) truncated to an integer 
A halfword count is computed from this as: 
halfword count = (1 + character count)/2 
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Decimal digits are generated one at a time, from right to left, thus: Let l =input 
string as unsigned integer, 

d k = l k - 1 0(l k /1 0) integer multiply and divide 

l k+1 =(l k -d k )/10 

The process terminates when the halfword count is reached, with two digits stored 
per halfword. At the end, if an odd number of characters have been stored, the 
string must be shifted one character to the left for proper alignment. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name: QSHAPQ Size of Code Area Z4 

Stack Requirement: 18 Hw Data CSECT Size: 

Intrinsic X Procedure 







QSHAPQ 

Hw 
Hw 



Other Library Modules Referenced: ETOH(DTOH). ROUND(DTOI). ITOE. 
ITOD 



ENTRY POINT DESCRIPTIONS: 
Primary Entry Name: QSHAPQ 

Function: Shapes data of a given type and precision to data of an explicit type and 
precision. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

Used by the INTEGER, SCALAR, MATRIX, and VECTOR shaping 
functions . 

Other Library Modules: 



Execution Time (microseconds): 42.6 + 31 .8n, n = # times transferred. 
Input Arguments: 



Type 



Precision How Passed 



Units 



Integer/scalar 
Integer(flag) 

Integer(count) 

)utput Results: 
Type 


SP/DP 
DP 

SP 
Precision 


R2^first Hw 

R6: upper half for input data, 

lower half for output 

R5: number of times to transfer 

How Passed 


Units 



SP/DP 



R1 — »first Hw 



Integer/scalar 

Errors Detected: 
Error # Cause Fixup 

1 5 Scalar too large for Set to maximum representable value 

integer conversion 

Comments: 

QSHAPQ is called only if more than one item of the same data type must be 
shaped. If only one item must undergo conversion, the conversion functions 
(DTOI, ETOI, ITOD, HTOE, etc.) are used. 
Registers Unsafe Across Call: F0,F1 . 
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Algorithm: 

The flags for the input and output data are examined. The appropriate 'LOAD' 
routine is executed to load one item to be shaped. The appropriate 'STORE', or in 
some cases, 'CONVERT AND STORE' routine stores the shaped data item in the 
area pointed to by the destination pointer. The source pointer is updated after each 
load; the destination pointer is updated after each store. Data is shaped and 
transferred item-by-item. 

The values of the flags (R6 upper and lower) are: 

= HW integer 

1 = FW integer 

2 = FW scalar 

3 = DW scalar 
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RANDOM 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: RANDOM Size of Code Area 
Stack Requirement: 
Intrinsic 



46 



18 Hw 



Data CSECT Size: 
Procedure 



Hw 
Hw 



X 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: RANDOM 

Function: Generates random number with uniform distribution in range (0.0, 1.0). 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

. . .RANDOM. . . 

Other Library Modules: 



Execution Time (microseconds): 54.4 

Input Arguments: 
Type 
None 



Precision 



How Passed 



Output Results: 
Type 
Scalar 

Errors Detected: 
Error # 
None 



Precision 
DP 



Cause 



How Passed 
F0/F1 



Fixup 



Units 



Units 



Comments: 

The original SEED(F'1435') is declared as a data constant. To allow storage into 
this "constant" for updating SEED, the storage protection is turned off for SEED. 
Registers Unsafe Across Call: F0,F1 ,F2,F3. 

Algorithm: 

Multiply F'65539' by SEED. SEED originally=F'1435', but is updated on each pass 
through RANDOM. Use the least significant 32 bits of this product (SEED x 65539) 
to form the new SEED. If the result is >0, then RESULT = new SEED. If RESULT 
< 0, then new SEED = RESULT - NEGMAX, where NEGMAX = X'80000000'. The 
positive new SEED is saved for future use, and is also converted to a floating point 
number for present computation of a random number. Multiply the floating point 

value by 2" 31 to produce a random number in the range (0.0, 1 .0). 
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RANDOM 
Secondary Entry Name: RANDG 

Function: Generates random number from Gaussian distribution, mean zero, variance 
one. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

. . .RANDOMG. . . 

Other Library Modules: 



Execution Time (microseconds): 575.8 
Input Arguments: 



Type 
None 


Precision 


How Passed 


Units 


Output Results: 
Type 
Scalar 


Precision 
DP 


How Passed 

F0/F1 


Units 


Errors Detected: 
Error # 
None 


Cause 


Fixup 




Comments: 








Same as RANDOM. 






Registers Unsafe Across Call: 


F0,F1,F2,F3. 




Algorithm: 









12 

RANDG uses the formula Y = £ x, - 6.0, where X, is a random number 
generated by RANDOM. '= 1 
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STBYTE 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: STBYTE Size of Code Area 22 
Stack Requirement: 
Intrinsic 



Hw 



Hw 



X 



Data CSECT Size: 
Procedure 







Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: STBYTE 

Function: Stores one character into a character string; Used for character 
manipulation by other library routines. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 



X Other Library Modules: 



CLJSTV, CPAS, CRJSTV, CTRIMV 
Execution Time (microseconds): 19.2 to store in upper byte. 

1 7.2 to store in lower byte. 

Input Arguments: 
Iyp_e 

Single character 
Flag (which byte to 
store into) 



Precision 



How Passed 

R5 

Lower Hw of R1 : 

00-upper byte, X'8000' to lower byte 



Units 



Output Results: 
Type 
Pointer 

Errors Detected: 
Error # 
None 



Precision How Passed 



Units 



Cause 



R1->Hw to store into 



Fixup 



Comments: 

Registers Unsafe Across Call: R1 ,R4,R5,F0. 

Algorithm: 

The flag is tested for an even or odd byte to store into. If odd (upper), the flag is set 
to indicate even (lower) for the probable loop that STBYTE is in. Then, the byte is 
inserted into the upper byte of the appropriate halfword. If the flag indicates an 
even byte to store into, then the byte is inserted into the lower byte of the 
appropriate halfword. The flag is set to to indicate that the next time around the 
loop, the byte will be odd. The pointer is updated to the next halfword. 



6-318 



November 2005 



HAL/S Compiler System Specification 



USA003089 
32.0/17.0 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: XTOC Size of Code Area 68 

Stack Requirement: 
Intrinsic 



Hw 



X 



Data CSECT Size: 
Procedure 







XTOC 

Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: XTOC 

Function: Converts bit string to a string of hexadecimal characters. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

CHARACTER @HEX (BIT_STRING) 

Other Library Modules: 



Execution Time (microseconds): 

35.9 + 32.2 * (# of digits 0-9) + 33.9 * (# of letters A-F), 
where 8 * ((# of digits)+(# of letters))= # bits. 

Input Arguments: 



How Passed 

R5 

R6 



Precision How Passed 
R2^descriptor 



Units 



Type Precision How Passed Units 

Bit string 

lnteger(length of Bit string) SP 

Output Results: 

Character string 

Errors Detected: 
Error # Cause Fixup 

None 

Comments: 

Output string length depends on input string length. The maxlength of the output 

area is ignored. 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,R6,R7,F0. 
Algorithm: 

A character count is determined as the integer part of (bit length +3)/4. The bit 

string is positioned in register pair R4-R5 with the first hexadecimal digit in bits 12- 

15 of R4 thus: 

1) Clear R4; string right-justified in R5 on input. 

2) Compute greatest multiple of 4 in 52 - bit length. 

3) Use result of 2) as a shift count to shift R4-R5 left double. 
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Compute a halfword count for use as a loop counter: 

halfword count = (1 + character count)/2 
The character count is stored in the descriptor halfword as the current length of the 
output string. Digits are generated by shifting left 4 and stored two at a time in the 
output string, after converting DEU format by adding X'30' to each digit. Exit when 
proper number of halfwords have been stored. 
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XTOC 



Secondary Entry Name: OTOC 

Function: Converts a bit string into a string of octal characters. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

CHARACTER @0CT (BIT_STRING) 

Other Library Modules: 





Precision 


How Passed 


Units 




- 


R5 


- 


t string) 


SP 


R6 


- 




Precision 


How Passed 


Units 




- 


R2^descriptor 


- 


Cause 


Fixuo 







Execution Time (microseconds): 46.2 + 32.3*(# of digits), 

where 6 *(# of digits) = # bits + 2. 

Input Arguments: 

Bit string 
lnteger(length of 

Output Results: 
lype 
Character string 

Errors Detected: 
Error # 
None 

Comments: 

Output string length depends on input string length. The maxlength of the output 

area is ignored. 

Registers Unsafe Across Call: R1 ,R2,R3,R4,R5,R6,R7,F0. 
Algorithm: 

First, a character count is determined as the integer part of (bit length + 2)/3. The 

bit string is positioned in register pair R4-R5 with the first octal digit in bits 13-15 of 

R4 as follows: 

1) Begin with R4 clear and the string right-aligned in R5. 

2) Compute the shift count as 51 -3(character count) and 

3) shift R4-R5 left double by this amount. 

Complete a halfword count for use as a loop counter as: 

halfword count = (1 + character count)/2 
The character count is stored in the descriptor halfword of the output string. Then, 
digits are generated in a loop, two at a time, by shifting R4-R5 left double 3 bits and 
adding X'30' to give the appropriate DEU character. As pairs of digits are 
assembled, they are stored into the output string, and exit is taken when the proper 
number of halfwords have been stored. 
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6.3.7 REMOTE Routine Descriptions 

This subsection describes those routines which perform operations on REMOTE data. 
REMOTE data is data which may reside in a sector of AP-101 core which is neither 
sector nor the current data sector indicated in the Program Status Word at the time 
the routine is called. In order to ensure addressability of such data, these routines are 
passed, instead of pointers directly to their arguments, pointers to complete address 
constants, or "ZCONs", containing both the address of the argument and the number of 
the sector in which it resides. These complete address constants, together with a 
special AP-101 addressing mode, allow access to any area of AP-101 core without 
changing bits in the Program Status Word. 

REMOTE routines are invoked (rather than the normal versions of the same routines) 
when at least one of the arguments of the routine has the REMOTE attribute. 
Aggregate data types (VECTOR, MATRIX, STRUCTURE and CHARACTER types) and 
arrays of these data types currently have REMOTE routines. For arrays of 
single/double precision scalars or integers, no REMOTE routines exist and a severity 2 
FT108 error message is emitted when an attempt is made to pass the REMOTE 
argument to a function. 
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CASRPV 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name CASRPV Size of Code Area 
S tack R equirement: 22 Hw Da 

Intrinsic 



86 Hw 



ta CSECT Size: 
Procedure 



Hw 



X 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CASRPV 

Function: Assigns a partition of a REMOTE character string into a temporary 
character string in a virtual accumulator. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

...C2j T0 j ... where C2 is a REMOTE character 
result is a temporary string. 

Other Library Modules: 



X 



variable and 



Execution Time (microseconds): 
If P = and length(C2) = 0: 76.8 
If P > and I is odd: 89.0 + 15.8 * ceiling(n/2) 
If P > and I is even: 94.2 + 21 .2 * ceiling(n/2) 
where P = J - I + 1 
n = minimum (p,255) Input Arguments: 



Type 
Integer(l) 
Integer(J) 
Character(C2) 

Output Results: 
Type 
Character(temporary) 

Errors Detected: 



Precision How Passed 

SP 

SP 



Units 



R5 
R6 
R4^ZCON^descriptor 



Precision How Passed 



Units 



R2^ZCON^descriptor 



Error # 
17 



Cause 



Specified partition outside 
current string range 
Last character indicator less 
than first character indicator 
and output string is not null 

Comments: 

Registers Unsafe Across Call: None 



Fixup 

Set bad partition pointer(s) to the 
limits of the current string 
Return null string 
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Algorithm: 

Set maxlength of result to 255. Test position of first character of partition. If < 1 
then send error and set to 1 . 

Compare position of last character of partition. If it is > maxlength, reset to 
maxlength, and send error. Compare first and last positions. If last < first, then if 
input string is null do not send error. If input string is not null, send error and set 
result to null string. Make sure partition length does not exceed the maxlength of 
the destination string. If it does, truncate it. Increment character count before 
dividing by 2 to round resulting halfword count to next highest halfword. If position 
of first character of partition is odd, then transfer halfword by halfword. Otherwise, 
it is necessary to line characters up into right halves of halfwords by shifting. 
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CASRPV 



Secondary Entry Name: CASRP 

Function: REMOTE character assignment to declared data, partitioned input. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

Cl = C2j T0 j,- where CI and/or C2 are REMOTE character 

data . 
Other Library Modules: 



Execution Time (microseconds): 

If P = and length(C2) = 0: 69.4 
If P > and I is odd: setup + 15.8 * (ceiling(n/2)) 
If P > and I is even: setup + 5.2 + 21 .2 * (ceiling(n/2)) 
where P = J- I + 1 

setup = 81 .6 if P>max length(C1 ) 
82.4 if P>maxlength(C1) 
n = minimum (P, max length(C1)) 

Input Arguments: 
Type 
Integer(l) 
Integer(J) 
Character(C2) 

Output Results: 
Iyp_e 
Character(CI) 



Precision 


How Passed 


Units 


SP 


R5 


- 


SP 


R6 


- 


- 


R4^ZCON^descriptor 


- 


Precision 


How Passed 


Units 


- 


R2^ZCON^descriptor 


- 



Cause Fixup 

Same causes and fix-ups as CASRPV - 



Errors Detected: 
Error # 
17 

Comments: 

Registers Unsafe Across Call: None 

Algorithm: 

Same as CASRPV except maxlength of resultant string is used as passed and not 
set to 255. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name: CASRV Size of Code Area 36 

Stac k Requirement: 18_ Hw Data CSECT Size: 

Intrinsic X Procedure 







CASRV 

Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CASRV 

Function: Assigns a REMOTE character string into a temporary character string 
in a virtual accumulator. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

Cl = C2 where CI and/or C2 is a REMOTE character string, CI 
is a temporary. 



Other Library Modules: 

Execution Time (microseconds): 

If n = 0:59.6 

If n > 0: 60.8 + 12.6 * (ceiling(n/2)) 

where n = length(C2) 
Input Arguments: 

Character(C2) 
Output Results: 

Character(temporary) 



Precision 



Precision 



Errors Detected: 
Error # 
None 



Cause 



How Passed Units 

R4^ZCON^descriptor - 

How Passed Units 

R2^ZCON^descriptor - 

Fixup 



Comments: 

Registers Unsafe Across Call: None 

Algorithm: 

Sets maxlength of result to 255. If the current length of the input string > maxlength 
of result, set current length of result to maxlength. Otherwise, set current length of 
result to current length of input. Find # of halfwords to move by shifting right 1 # of 
characters. Move halfword by halfword. If there is an odd # of characters, last byte 
moved is garbage. 
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CASRV 



Secondary Entry Name: CASR 

Function: Assigns a REMOTE character string to a character variable. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

Cl = C2, where CI and/or C2 is a REMOTE character 
string . 

Other Library Modules: 



Execution Time (microseconds): 
If n = 0:52.6 

If n > 0: 51 .8+1 2.6*(ceiling(n/2))+.8 (if length(C2) > maxlength(C1 )), 
where n = minimum(length(C2), maxlength(CI)). 

Input Arguments: 



Precision How Passed 



R4^ZCON^descriptor 



Precision How Passed 



Type 
Character string 

Output Results: 
Type 
Character string 

Errors Detected: 
Error # 
None 

Comments: 

Registers Unsafe Across Call: None 

Algorithm: 

Same as CASRV, but do not set maxlength of result to 255. 



Units 



Units 



Cause 



R2^ZCON^descriptor 
Fixup 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: CPASR Size of Code Area 132 
S tack Requirement: 24 
Intrinsic 



Hw 



Data CSECT Size: 
Procedure 



CPASR 

Hw 
Hw 



X 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CPASR 

Function: Remote character assignment to a partitioned receiver. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

Clj to j = C2, where CI or C2 is a REMOTE character 
string . 



X Other Library Modules: 



CPASRP 
Execution Time (microseconds): 

LHP 



77.9 + KA + KB + Z (6.0 + K CLOU t + k) + KD 

k=1 
NCHAR 

+ £(8.4 + K Ek+ KC l+K - 1 ) + KF 

k=1 
RHP 

+ £(6.0 + KC| + li N+ k-i) + KG 



k=1 

where: 

LOUT = length(C1) before assignment 
LIN = length(C2) 
KA = if J < LOUT 

13.0 if J> LOUT 
LPART = J - I + 1 

KB = 1 5.8 if LPART > and LIN < LPART 
1 2.0 if LPART > and LIN > LPART 
if LPART = 
LHP = l-LOUT-1 if I > LOUT + 1 

otherwise 
KC X = 1 9.8 if X is odd 
20.2 if X is even 
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KD = 


3.2 if LHP = and I is odd 




4.2 if LHP = and I is even 




1.0 if LHP >0 and LOUT is odd 




if LHP > and LOUT is even 


NCHAR = 


minimum(LPARTLIN) 


KE X = 


1 3.8 if X is odd 




14.4 if X is even 


KF = 


-0.8 if NCHAR > 




if NCHAR = 


RHP = 


LPART-LIN if LPART > LIN 




otherwise 


KG = 


Oif RHP>0 




0.4 if RHP = 



Note: If any of LHP, NCHAR, RHP is zero, then that respective summation is also zero. 
Input Arguments: 



Type 


Precision 


How Passed 


Units 


Integer(l) 


SP 


R5 


- 


Integer(J) 


SP 


R6 


- 


Character(C2) 


- 


R4->ZCON^descriptor 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Character(CI) 


- 


R2^ZCON^descriptor 


- 


Errors Detected: 








Error # Cause 






Fixup 


1 7 Index of first character 


<1 


Set to 1 


Index of last character 


> max length of receiver 


Set to max length 


Index of last character 


< index of first character 


Return receiver unchanged 



Comments: 

Registers Unsafe Across Call: F0,F1. 

Algorithm: 

If R5 < 1 then send error and set to 1 . 

If R6 > max length then send error and set to max length. 

If R6 > current length of receiver, then update current length of receiver. 

If R6 < R5 then send error and exit immediately. Otherwise, move partition 
character by character. 
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CPASRP 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name: CPASRP Size of Code Area 

Stack Requirement: 
Intrinsic 



16 



146 Hw 



Data CSECT Size: 
Procedure 



Hw 
Hw 



X 



Other Library Modules Referenced: CPASR. CASRPV 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CPASRP 

Function: Remote character string assignment of partitioned input to partitioned output. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 



X 



Cli to j = C2 k to l where CI and C2 are character strings. 
Other Library Modules: 



Execution Time (microseconds): 



LHP 

132.3 + KA + KB + KC + £(6.0 + KD 0U tlen+k) + KE 

k=1 
NCHAR 

+ X(8.4 + KF k + KD| +K .-,) + KG 

k=1 
RHP 

+ E(6.0 + KD| + | NLEN+K . 1 ) + KH 

k=1 



where: 



INLEN = 
KA = 



OUTLEN = 
KB = 



INPART = L - K + 1 if L > K 

otherwise 

minimum(INPART, 255) 
76.8 if INPART = and length(C2) = 
89.0 + 15.8(ceiling(INLEN(2)) if inpart > and K is odd 
94.2 + 21 .2(ceiling(INLEN(2)) if inpart > and K is even 
length(C1) before assignment 
if J < OUTLEN ~ 

13.0 if J > OUTLEN 
OUTPART = J - I + 1 if J > I, otherwise 

KC = 1 5.8 if OUTPART > and INLEN = OUTPART 
1 2.0 if OUTPART > and INLEN 1 OUTPART 

if OUTPART = 

1 - OUTLEN - 1 if I > OUTLEN + 1,0 otherwise 
9.8 if X is odd 
20.2 if X is even 



LHP = 
KD X = 
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KE = 


3.2 


if LHP = and I is odd 




4.2 


if LHP = and I is even 




1.0 



if LHP > and OUTLEN is odd 
if LHP > and OUTLEN is even 


NCHAR = 
KF X = 


minimum(OUTPARTJNLEN) 
13.8 if X is odd 



14.4 if X is even 
KG = -0.8 if NCHAR > 
if NCHAR = 

RHP = OUTPART - INLEN if OUTPART > INLEN, otherwise 
KH = if RHP > 

0.4 if RHP = 
Note: If any of LHP, NCHAR, RHP is zero, then the respective summation is also zero. 

Input Arguments: 



Type 


Precision 


How Passed 


Units 


Character (C2) 


- 


R4^ZCON^descriptor 


- 


Integer(k) 


SP 


R5 


- 


Integer(l) 


SP 


R6 


- 


lnteger(i||j) 


(SP||SP) 


R7 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Character(CI) 


- 


R2^ZCON^descriptor 


- 


Errors Detected: 








Error # Cause 




Fixup 





17 



Subscript of character 
string out of bounds 



Set out-of-bounds value to first or last 
character of associated string 



Comments: 

Registers Unsafe Across Call: F0,F1 . 

Algorithm: 

Saves pointer to result in work area, loads address of vac in R1 , and branches to 
CASRPV. Returns, loads result address in R1 , loads arg 3 and arg 7 in R5 and R6 
respectively and branches to CPASR, and returns. 
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CSTR 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: CSTR Size of Code Area 18 

Stack Requirement: 
Intrinsic 



Hw 



18 Hw 



Data CSECT Size: 
Procedure 







Hw 



X 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: CSTR 

Function: Comparison of REMOTE structures. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

IF SI = S2 . . . Where SI, S2, or both is a REMOTE structure 
occupying n half words. 

Other Library Modules: 



Execution Time (microseconds): 

22.8 + 14.8n if structures compare, where n = # of halfwords in structure. 
19.6 + 1 4. 8n if structures do not compare, where n = index of first non- 
matching halfwords in structures. 



Input Arguments: 

Structure 

(left comparand) S1 

Structure 

(right comparand) S2 

Integer(n) 

Output Results: 
Type 
Equal/not equal 

Errors Detected: 
Error # 
None 



Precision How Passed 

R2^ZCON^first Hw 

R4^ZCON^first Hw 
SP R5 

Precision How Passed 

Condition Code 

Cause Fixup 



Units 



Units 



Comments: 

Registers Unsafe Across Call: None. 

Algorithm: 

Compares structures, halfword by halfword, until two are found that are different or 
the end of the structure is reached. If inequality is found then set CC to 1 and 
return. If equal, then set CC to and return. 
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MRODNP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name:MR0DNP Size of Code Area 16 Hw 


Stack Requirement: 20 Hw Da 


ta CSECT Size: Hw 
X Procedure 


Intrinsic 


Other Library Modules Referenced: None 





ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: MRODNP 

Function: Moves a scalar value to all positions of a partition of a REMOTE double 
precision matrix. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

where M is a double precision REMOTE 
matrix, and either or both 'TO' subscripts 



X 



M A TO B , C TO D _X i 



may be replaced by the 'AT 
under rules given for matrix 
indices A,B,C, and D must 
values. X is a scalar. 



subscripts 

types . The 

be literal 



Other Library Modules: 
Execution Time (microseconds): 22.8 + n (5.6 + 9.8m) 
Input Arguments: 



Type 


Precision 


How Passed 


Scalar 


DP 


F0 


Integer(n) 


SP 


R5 


Integer(m) 


SP 


R6 


Integer(outdel) 


SP 


R7 


Output Results: 






Type 


Precision 


How Passed 


Matrix(n,m) 


DP 


R2^ZCON- 


Errors Detected: 






Error # 


Cause 


Fixup 


None 







Units 



Units 



Comments: 

Registers Unsafe Across Call: F0,F1. 

Algorithm: 

Same as MROSNP except use 4 * (# columns) as row length in halfwords, and use 
double precision store. 
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MROSNP 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name: MROSNP Size of Code Area 16 

S tack Requirement: 20 Hw 
Intrinsic 



Hw 



X_ 
Other Library Modules Referenced: None 



Data CSECT Size: 
Procedure 







Hw 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: MROSNP 

Function: Moves a scalar value to all positions of a partition of a REMOTE single 
precision matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

^a to b c to d = X' where M is a REMOTE single precision matrix 
and either or both 'TO' subscripts may be 
replaced by the 'AT' under rules given for 
matrix types. The indices A,B,C, and D 
must be literal values. X is a scalar. 



Other Library Modules: 

Execution Time (microseconds): 22.8 + n (5.6 + 8.6m) for an n x m partition. 
Input Arguments: 



Type 


Precision 


How Passed 


Units 


Scalar 


SP 


F0 


- 


Integer(n) 


SP 


R5 


- 


Integer(m) 


SP 


R6 


- 


Integer(outdel) 


SP 


R7 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Matrix(n,m) 


SP 


R2^ZCON^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixup 




None 








Comments: 









Registers Unsafe Across Call: F0. 
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Algorithm: 

Find row length in halfwords by SLL # columns, 1 add row length to outdel 

Loop: Indexing on # rows, using BCTB 

Loop: Indexing on # columns, using BCTB 

Store scalar in pointed to output element 

End. 

Add outdel (with row size) to output pointer 
End. 



6-335 November 2005 



HAL/S Compiler System Specification 



USA003089 
32.0/17.0 



MR1DNP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name:MR1 DNP Size of Code Area 22 Hw 


Stack Requirement: 22 Hw Data CSECT Size: Hw 




Intrinsic X Procedure 


Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: MR1DNP 

Function: Moves a partition of a double precision matrix to a partition of a double 

precision matrix. At least one of the matrices has the REMOTE 

attribute. 

Invoked By: 
Compil 

M1=M2 A T0 B(C T0 D ; 



X Compiler emitted code for HAL/S construct of the form: 

where Ml and M2 are double precision 
matrices, and at least one of Ml and M2 
is REMOTE and either or both 'TO' 
subscripts may be replaced by 'AT' 
subscripts under rules given for matrix 
types. The indices A,B,C, and D must be 
literal values. 



M1 A TO B,C TO D~ M2 



Other Library Modules: 
Execution Time (microseconds): 28.4 + n (8.2 + 15m) for an n x m partition. 
Input Arguments: 



Type 


Precision 


How Passed 


Units 


Matrix(n,m) 


DP 


R4^ZCON^0 th 
element 


~ 


Integer(rows) 


SP 


R5 


- 


Integer(columns) 


SP 


R6 


- 


lnteger(indel, outdel) 


SP 


R7 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Matrix(n,m) 


DP 


R2^ZCON^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixup 





None 

Comments: 

Registers Unsafe Across Call: F0,F1 . 
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Algorithm: 

Same as MR1SNP, except use double precision loads and stores and use 
4*(# columns) as row length. 
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MR1SNP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name:MR1 SNP Size of Code Area 


22 Hw 


Stack Requirement: 22 Hw Data CSECT Size: 


Hw 




Intrinsic X Procedure 




Other Library Modules Referenced: None 





ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: MR1SNP 

Function: Moves a partition of a single precision matrix to a partition of a single 

precision matrix. Either or both matrices have the REMOTE 

attribute. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 



M1=M2 A to B ,c to d; where Ml 

matrices, 



Ml 



A TO B,C TO D' 



=M2 



and M2 are single precision 
and at least one of Ml and M2 is 
REMOTE and either or both 'TO' subscripts 
may be replaced by 'AT' subscripts under 
rules given for matrix types. The indices 
A,B,C, and D must be literal values. 

Other Library Modules: 
Execution Time (microseconds): 28.4 + n (8.2 + 12.6m) for an n x m partition. 
Input Arguments: 



Type 




Precision 


How Passed 


Units 


Matrix(n,m) 




SP 


R4^ZCON^0 th element 


- 


Integer(n) 




SP 


R5 


- 


Integer(m) 




SP 


R6 


- 


lnteger(indel, o 


utdel) 


(SP||SP) 


R7 


- 


Output Results: 










Type 




Precision 


How Passed 


Units 


Matrix(n,m) 




SP 


R2^ZCON^0 th element 


- 


Errors Detected 










Error # 




Cause 


Fixuo 





None 

Comments: 

Registers Unsafe Across Call: F0. 
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Algorithm: 

Separate indel and outdel into separate registers. Find row size, in halfwords, of 
result matrix by shifting left 1 , 

# columns 
Add rowsize to indel 
Add rowsize to outdel 
Loop: Indexing on # of rows of output, and using BCTB 
Loop: Indexing on # of columns of input, using BCTB 

load (single precision) pointed to input element 
store (single precision) pointed to output element 
End. 

Add indel (with row size added) to input pointer 
Add outdel (with row size added) to output pointer 
End. 
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MR1TNP 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: MR1TNP Size of Code Area 24 
Stack Requirement: 
Intrinsic 



22 Hw 



Data CSECT Size: 
Procedure 







Hw 
Hw 



X 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: MR1TNP 

Function: Moves a partition of a double precision matrix to a partition of a 

single precision matrix. At least one of the matrices has the 

REMOTE attribute. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 



M1=M2 A to b,c to d; where Ml 

matrix, M2 



Ml-A TO B,C TO D - M2 



is a single precision 
is a double precision 
matrix, and at least one of Ml and M2 
is REMOTE and either or both 'TO' 
subscripts may be replaced by 'AT' 
subscripts under rules given for 
matrix types. The indices A,B,C, and 
D must be literal values. 



Other Library Modules: 
Execution Time (microseconds): 31 .2 + n (7.6 + 13.8m) for an n x m partition. 
Input Arguments: 



Type 


Precision How Passed 


Units 


Matrix(n,m) 


DP R4^ZCON^0 th element 


- 


Integer(rows) 
Integer(columns) 
lnteger(indel, outdel) 


SP R5 
SP R6 

(SP||SP) R7 


- 


Output Results: 
Type 


Precision How Passed 


Units 


Matrix(n,m) 


SP R2^ZCON^0 th element 


- 


Errors Detected: 
Error # 
None 


Cause Fixup 




Comments: 






Registers Unsafe Across Call: F0,F1 . 
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Algorithm: 

Same as MR1SNP, except use double precision load for index alignment, and use 
4 * (# columns) as the length in halfwords of double precision partition. 
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MR1WNP 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: MR1WNP Size of Code Area 
Stack Requirement: 
Intrinsic 



24 



22 Hw 



Data CSECT Size: 
Procedure 



Hw 
Hw 



X 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: MR1WNP 

Function: Moves a partition of a single precision matrix to a partition of a double 
precision matrix. Either or both matrices have REMOTE attribute. 

Invoked By: 



M1=M2 



X Compiler emitted code for HAL/S construct of the form: 

where Ml is a double precision matrix, 
M2 is a single precision matrix, and at 
least one of Ml and M2 is REMOTE and 
either or both 'TO' subscripts may be 
replaced by 'AT' subscripts under rules 
given for matrix types. The indices 
A,B,C, and D must be literal values. 

Other Library Modules: 



A TO B,C TO D' 



Ml-A TO B,C TO D _ ^2 



Execution Time (microseconds): 32.8 + n (8.2 + 13.8m) for an n x m partition. 
Input Arguments: 



Type 


Precision 


How Passed 


Units 


Matrix 


SP 


R4^ZCON^0 th element 


- 


Integer(rows) 


SP 


R5 


- 


Integer(columns) 


SP 


R6 


- 


lnteger(indel, outdel) 


(SP,SP) 


R7 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Matrix 


DP 


R2^ZCON^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixuo 





None 

Comments: 

Registers Unsafe Across Call: F0,F1. 

Algorithm: 

Same as MR1SNP, except use double precision stores after zeroing the low half of 
the floating point register. 
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MSTR 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: MSTR Size of Code Area 42 

Stack Requirement: 
Intrinsic 



Hw 



18 Hw 



Data CSECT Size: 
Procedure 







Hw 



X 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: MSTR 

Function: Moves a structure to or from a REMOTE location. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

S1=S2 . . . where SI or both SI and S2 
structures occupying n halfwords. 

Other Library Modules: 



are 



REMOTE 



Execution Time (microseconds): 16.8 + 15n 
Input Arguments: 



Type Precision 

Structure(S2) 

Integer(n) SP 

Output Results: 
Type Precision 

Structure(SI) 

Errors Detected: 
Error # Cause Fixup 

None 

Comments: 

Registers Unsafe Across Call: None. 

Algorithm: 

Moves structure halfword by halfword. 



How Passed 
R4^ZCON^first Hw 
R5 



Units 



How Passed 
R2^ZCON^first Hw 



Units 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 

Source Member Name: VRODN Size of Code Area 6 

Stack Requirement: 18 Hw Data CSECT Size: 

Intrinsic X Procedure 



VRODN 

_Hw 
Hw 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VRODN 

Function: Moves a scalar to all elements of a double precision vector with the 
REMOTE attribute. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V=0; where V is a REMOTE double precision vector. 
Other Library Modules: 



Execution Time (microseconds): 16.4 + 9.2n, where n = size of vector. 
Input Arguments: 



DP 



Type Precision How Passed 

Scalar DP F0 

Integer(n) SP R5 

Output Results: 
Type 
Vector(n) 

Errors Detected: 
Error # Cause 

None 

Comments: 

Registers Unsafe Across Call: F0,F1. 

Algorithm: 

Same as VROSN, except use double precision store. 



Units 



Precision How Passed 

R4^ZCON^0 th 
element 

Fixup 



Units 
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VRODNP 
HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VRODNP Size of Code Area 10 
Stack Requirement: 
Intrinsic 



18 Hw 



Data CSECT Size: 
Procedure 







Hw 
Hw 



X 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VRODNP 

Function: Moves a scalar to all elements of a column of a double precision matrix. 

Invoked By: 

Compiler emitted code for HAL/S construct of the form: 

M* j=0; where M is a double precision REMOTE matrix. 
Other Library Modules: 



X 



Execution Time (microseconds): 21.2 + 10. On, n = length of vector result. 
Input Arguments: 

Scalar 

Integer(n) 

Integer(outdel) 

Output Results: 
Type 
Vector(n) 

Errors Detected: 
Error # 
None 

Comments: 

Registers Unsafe Across Call: F0, F1 . 

Algorithm: 

Same as VROSNP, except use double precision stores. 



Precision 


How Passed 


Units 


DP 


F0 


- 


SP 


R5 


- 


SP 


R7 


- 


Precision 


How Passed 


Units 


DP 
Dause 


R2^ZCON^0 th element 
Fixup 
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VROSN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: VROSN Size of Code Area 6 


Hw 


Stack Requirement: 18 Hw Data CSECT Size 


Hw 


Intrinsic X Procedure 


Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VROSN 

Function: Moves a scalar to all elements of a single precision vector with the 
REMOTE attribute. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V=0; where V is a REMOTE single precision vector. 
Other Library Modules: 



Execution Time (microseconds): 16.4 + 8n, n = size of vector. 
Input Arguments: 



Type 

Scalar 

Integer(n) 

Output Results: 
Type 
Vector(n) 



Precision How Passed 



Units 



SP 


F0 


- 


SP 


R5 


- 


Precision 


How Passed 


Units 



SP 



Errors Detected: 
Error # Cause 



R2^ZCON^0 th element 
Fixup 



None 

Comments: 

Registers Unsafe Across Call: F0. 

Algorithm: 

Store elements in reverse order using the input length both as an index and to 
control the loop. 



6-346 



November 2005 



HAL/S Compiler System Specification 



USA003089 
32.0/17.0 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VROSNP Size of Code Area 10 

Stac k Requirement: 
Intrinsic 



18 Hw 



Data CSECT Size: 
Procedure 







VROSNP 

_ Hw 
Hw 



X 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VROSNP 

Function: Moves a scalar to all elements of a column of a single precision matrix. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

M* !=0; where M is a single precision REMOTE matrix. 
Other Library Modules: 



Execution Time (microseconds): 21.2 + 8.8n, n = length of vector result. 
Input Arguments: 



How Passed 

F0 

R5 

R7 

How Passed 
R2^ZCON^0 th 



Type Precision How Passed Units 

Scalar SP 

Integer(n) SP 

Integer(outdel) SP 

Output Results: 
Type Precision How Passed Units 

Vector(n) SP 

Errors Detected: 
Error # Cause 

None 

Comments: 

Registers Unsafe Across Call: F0. 

Algorithm: 

Store elements one at a time, adding outdel to the pointer after each store. 



element 
Fixup 
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VR1DN 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VR1DN Size of Code Area 8^ 
Stack Requirement: 
Intrinsic 



Hw 



18 Hw 



Data CSECT Size: 
Procedure 







Hw 



X 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VR1DN 

Function: Moves a double precision vector to a double precision vector, where at 
least one of the vectors has the REMOTE attribute. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V2=V1; where VI or V2 has been declared a REMOTE vector, 
and VI, V2 are both double precision. 

Other Library Modules: 



Precision How Passed 



Units 



Execution Time (microseconds): 16.4 + 15n, n = length of vector. 

Input Arguments: 
Type 
Vector 

Integer(n) 

Output Results: 
Type 
Vector(n) 



DP 


R4^ZCON^0 th element 


- 


SP 


R5 


- 


Precision 


How Passed 


Units 



DP 



Errors Detected: 
Error # Cause 



R1^ZCON^0 th element 
Fixup 



None 

Comments: 

Registers Unsafe Across Call: F0,F1 . 

Algorithm: 

Same as VR1SN, except use double precision loads and stores. 
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VR1DNP 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VR1DNP Size of Code Area 
Stack Requirement: 
Intrinsic 



20 



18 Hw 



Data CSECT Size: 
Procedure 



Hw 
Hw 



X 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VR1DNP 

Function: Moves a double precision vector to a double precision vector when 

elements of source or receiver are not contiguous, and at least one 

has the REMOTE attribute. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 



V=M* ;J ; where V has been declared a double precision 
vector, M is a double precision matrix, and V or M 



M 



* J' 



=V; is REMOTE. 



Other Library Modules: 



Execution Time (microseconds) : 17.0n + 29.6 if neither input nor output is contiguous. 

17.0n + 30.4 if either input or output is contiguous, 
where n = length of vector. 

Units 



Input Arguments: 






Type 


Precision How Passed 


Vector(n) 


DP 


R4^ZCON^0 th element 


Integer(n) 


SP 


R5 


Integer(indel) 


SP 


R6 


Integer(outdel) 


SP 


R7 


Output Results: 






Type 


Precision 


How Passed 


Vector(n) 


DP 


R2^ZCON^0 th element 


Errors Detected: 






Error # 


Cause 


Fixup 



Units 



None 

Comments: 

Registers Unsafe Across Call: F0,F1. 

Algorithm: 

Same as VR1SNP, except if indel or outdel = 0, sets to 4, and does double 
precision loads and stores. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VR1SN Size of Code Area £L 
Stack Requirement: 18 
Intrinsic 



Hw 



Data CSECT Size: 
Procedure 



VR1SN 

Hw 
Hw 



X 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VR1SN 

Function: Moves a single precision vector to a single precision vector where at 
least one of the vectors has the REMOTE attribute. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V1=V2; where VI and/or V2 are REMOTE and both VI and V2 
are single precision. 

Other Library Modules: 



Execution Time (microseconds): 16.4 + 12.6n, n = length of vector. 
Input Arguments: 



Type 
Vector(n) 

Integer(n) 

Output Results: 
Type 
Vector(n) 

Errors Detected: 
Error # 



Precision How Passed 



Units 



SP 


R4^ZCON^0 th element " 


SP 


R5 


Precision 


How Passed Units 



SP 



Cause 



R2^ZCON^0 th element 



Fixup 
None 

Comments: 

Registers Unsafe Across Call: F0. 

Algorithm: 

Loops n times, using length both as index and to control the loop. Load, then store, 
each element in turn. 
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VR1SNP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: VR1 SNP Size of Code Area 20 Hw 


Stack Requirement: 18 Hw Data CSECT Size: Hw 




Intrinsic X Procedure 


Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VR1SNP 

Function: Moves a single precision vector to a single precision vector when 

elements of source or receiver are not contiguous and at least one has 

the REMOTE attribute. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V = M* T ; where V is a single precision vector, M is 



M 



*, J 



'*, J' 



= V; 



single precision matrix, 
REMOTE attribute. 



and V or M has the 



Other Library Modules: 

Execution Time (microseconds): 

14.6n + 30.4 if either input or output is contiguous. 

14.6n + 29.6 if neither input nor output is contiguous, where n=length of vector. 
Input Arguments: 



Type 


Precision 


How Passed 


Units 


Vector(n) 


SP 


R4^ZCON^0 th element 


- 


Integer(n) 


SP 


R5 


- 


Integer(indel) 


SP 


R6 


- 


Integer(outdel) 


SP 


R7 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Vector 


SP 


R2^ZCON^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixuo 





None 

Comments: 

Registers Unsafe Across Call: F0,F1. 

Algorithm: 

If outdel = 0, sets it to 2. 

If indel = 0, sets it to 2. 

Loops 'length' times, moving one element each loop. Adds indel to input pointer 

and outdel to output pointer after each move. 
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VR1TN 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 




Source Member Name: VR1TN Size of Code Area 8 


Hw 


Stack Requirement: 18 Hw Da 


ta CSECT Size: 


Hw 


Intrinsic 


X Procedure 




Other Library Modules Referenced: None 





ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VR1TN 

Function: Moves a double precision vector to a single precision vector, where at 
least one of the vectors has the REMOTE attribute. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V1=V2; where VI is a single precision vector, V2 is a 
double precision vector, and at least one of VI 
and V2 is REMOTE. 

Other Library Modules: 



Execution Time (microseconds): 16.4n + 13.8n, n = length of vector. 



Input Arguments: 






Type Precision 


How Passed 


Units 


Vector(n) DP 


R4^ZCON^0 th element 


- 


Integer(n) SP 


R5 


- 


Output Results: 






Type Precision 


How Passed 


Units 


Vector SP 


R2^ZCON^0 th element 


- 


Errors Detected: 






Error # Cause 


Fixup 




None 






Comments: 






Registers Unsafe Across Call: F0,F1. 




Algorithm: 






Same as VR1SN, except 


use double precision loads. 
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VR1TNP 


HAL/S-FC LIBRARY ROUTINE DESCRIPTION 


Source Member Name: VR1TNP Size of Code Area 20 Hw 


Stack Requirement: 18 Hw Data CSECT Size: Hw 




Intrinsic X Procedure 


Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VR1TNP 

Function: Moves a double precision vector to a single precision vector, when 

elements of source or receiver are not contiguous, and at least one of 

them has the REMOTE attribute. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 



V=M* ;J ; where V is a single precision vector, M is 
double precision matrix, and V or M is REMOTE. 

Other Library Modules: 



Execution Time (microseconds):15.8n + 30.4 if either input or output is contiguous. 

15.8n + 29.6 if neither input nor output is contiguous, 
where n=length of vector. 

Input Arguments: 



Type 


Precision 


How Passed 


Units 


Vector(n) 


DP 


R4^ZCON^0 th element 


- 


Integer(n) 


SP 


R5 


- 


Integer(indel) 


SP 


R6 


- 


Integer(outdel) 


SP 


R7 


- 


Output Results: 








Type 


Precision 


How Passed 


Units 


Vector 


SP 


R2^ZCON^0 th element 


- 


Errors Detected: 








Error # 


Cause 


Fixuo 





None 

Comments: 

Registers Unsafe Across Call: F0,F1 . 

Algorithm: 

Same as VR1SNP, except if indel = 0, sets it to 4, and does double precision loads. 
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HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VR1WN Size of Code Area 10 
Stack Requirement: 
Intrinsic 



18 Hw 



Data CSECT Size: 
Procedure 



VR1WN 

_ Hw 
Hw 



X 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VR1WN 

Function: Moves a single precision vector to a double precision vector, where at 
least one of the vectors has the REMOTE attribute. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 

V1=V2; where VI or V2 are remote, VI double precision, and 
V2 single precision. 

Other Library Modules: 



Execution Time (microseconds): 20.6 + 13.8n, n = length of vector. 
Input Arguments: 



Type 
Vector(n) 

Integer(n) 


Precision 
SP 

SP 


How Passed 

R4^ZCON^0 th element 
R5 


Units 


Output Results: 
Type 
Vector(n) 


Precision 
DP 


How Passed 
R2^ZCON^0 th element 


Units 


Errors Detected: 
Error # 


Cause 


Fixup 





None 

Comments: 

Registers Unsafe Across Call: F0,F1 . 

Algorithm: 

Same as VR1SN, except use double precision store with low half of floating register 
zeroed. 
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VR1WNP 



HAL/S-FC LIBRARY ROUTINE DESCRIPTION 
Source Member Name: VR1WNP Size of Code Area 
Stack Requirement: 
Intrinsic 



22 



18 Hw 



Data CSECT Size: 
Procedure 



Hw 
Hw 



X 



Other Library Modules Referenced: None 



ENTRY POINT DESCRIPTIONS: 

Primary Entry Name: VR1WNP 

Function: Moves a single precision vector to a double precision vector, when 

elements of source or receiver are not contiguous, and at least one of 

them has the REMOTE attribute. 

Invoked By: 



X Compiler emitted code for HAL/S construct of the form: 



V=M* ;J ; where V is a double precision vector, M is a single 
precision matrix, and V or M is REMOTE. 

Other Library Modules: 



Execution Time (microseconds): 15.8n + 31.2 if either input or output is contiguous. 

15.8n + 32.0 if neither input nor output is contiguous. 

Input Arguments: 
Type 
Vector(n) 

Integer(n) 

Integer(indel) 

Integer(outdel) 

Output Results: 
Type 
Vector(n) 

Errors Detected: 
Error # 



Precision 


How Passed Units 


SP 


R4^ZCON^0 th element " 


SP 


R5 


SP 


R6 


SP 


R7 


Precision 


How Passed Units 



DP 



R2^ZCON^0 th element 



Cause 



Fixup 
None 

Comments: 

Registers Unsafe Across Call: F0,F1. 

Algorithm: 

Same as VR1SNP, except if outdel=0, sets it to 4, and uses double precision 
stores, after clearing the low half of the floating point register. 
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Table 6-1 Index of Library Entry Name 



ACOS ,6-54 
ACOSH ,6-57 
ASIN ,6-55 
ASINH ,6-58 
ATAN ,6-96 
ATANH ,6-59 



B 

BTOC 



6-273 



CAS ,6-237 
CASP ,6-234 
CASPV ,6-232 
CASR ,6-327 
CASRP ,6-325 
CASRPV ,6-323 
CASRV ,6-326 
CASV ,6-235 
CAT ,6-240 
CATV ,6-238 
CEIL ,6-46 
CINDEX ,6-241 
CLJSTV ,6-243 
COS ,6-115 
COSH ,6-111 
CPAS ,6-245 
CPASP ,6-247 
CPASR ,6-328 
CPASRP ,6-330 
CPR ,6-248 
CPRA ,6-251 
CPRC ,6-250 
CPSLD ,6-277 
CPSLDP ,6-278 
CPSST ,6-279 
CPSSTP ,6-281 
CRJSTV ,6-253 
CSHAPQ ,6-274 
CSLD ,6-276 
CSLDP ,6-282 
CSST ,6-283 
CSSTP ,6-284 
CSTR ,6-332 
CSTRUC ,6-285 
CTOB ,6-286 
CTOD ,6-291 
CTOE ,6-288 
CTOH ,6-294 



CTOI ,6-292 
CTOK ,6-295 
CTOO ,6-298 
CTOX ,6-296 
CTRIMV ,6-255 

D 

DACOS ,6-60 
DACOSH ,6-63 
DASIN ,6-61 
DASINH ,6-64 
DATAN ,6-68 
DATAN2 ,6-66 
DATANH ,6-65 
DCEIL ,6-47 
DCOS ,6-83 
DCOSH ,6-79 
DEXP ,6-69 
DFLOOR ,6-48 
DLOG ,6-71 
DMAX ,6-257 
DMDVAL ,6-36 
DMIN ,6-258 
DMOD ,6-38 
DPROD ,6-259 
DPWRD ,6-73 
DPWRH ,6-76 
DPWRI ,6-74 
DROUND ,6-49 
DSIN ,6-84 
DSINH ,6-77 
DSLD ,6-299 
DSNCS ,6-80 
DSQRT ,6-85 
DSST ,6-300 
DSUM ,6-260 
DTAN ,6-88 
DTANH ,6-91 
DTOC ,6-303 
DTOH ,6-306 
DTOI ,6-50 
DTRUNC ,6-51 



EATAN2 ,6-93 
EMAX ,6-261 
EMIN ,6-262 
EMOD ,6-40 
EPROD ,6-263 
EPWRE ,6-97 



EPWRH ,6-100 
EPWRI ,6-98 
ESUM ,6-264 
ETOC ,6-301 
ETOH ,6-304 
ETOI ,6-52 
EXP ,6-101 

G 

GTBYTE ,6-307 

H 

HMAX ,6-265 
HMIN ,6-266 
HMOD ,6-42 
HPROD ,6-267 
HPWRH ,6-106 
HREM ,6-44 
HSUM ,6-268 
HTOC ,6-309 

I 

IMAX ,6-269 
IMIN ,6-270 
IMOD ,6-41 
IPROD ,6-271 
IPWRH ,6-105 
IPWRI ,6-103 
IREM ,6-43 
ISUM ,6-272 
ITOC ,6-308 
ITOD ,6-310 
ITOE ,6-311 

K 

KTOC ,6-312 



LOG ,6-107 



M 

MM0DNP 

MM0SNP 

MM11D3 

MM11DN 

MM11S3 

MM11SN 

MM12D3 

MM12DN 

MM12S3 

MM12SN 



,6-122 

,6-124 

6-138 

,6-137 

6-140 

,6-139 

,6-143 

,6-141 

,6-146 

,6-144 
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MM13D3 ,6-148 
MM13DN ,6-147 
MM13S3 ,6-150 
MM13SN ,6-149 
MM14D3 ,6-152 
MM14DN ,6-151 
MM14S3 ,6-155 
MM14SN ,6-153 
MM15DN ,6-156 
MM15SN ,6-157 
MM17D3 ,6-158 
MM17DN ,6-159 
MM17S3 ,6-160 
MM17SN ,6-161 
MM1DNP ,6-125 
MM1SNP ,6-127 
MM1TNP ,6-129 
MM1WNP ,6-131 
MM6D3 ,6-134 
MM6DN ,6-133 
MM6S3 ,6-136 
MM6SN ,6-135 
MRODNP ,6-333 
MROSNP ,6-334 
MR1DNP ,6-336 
MR1SNP ,6-338 
MR1TNP ,6-340 
MR1WNP ,6-342 
MSTR ,6-343 
MV6D3 ,6-163 
MV6DN ,6-162 
MV6S3 ,6-165 
MV6SN ,6-164 



O 

OTOC 



,6-321 



Q 

QSHAPQ 



,6-314 



RANDG ,6-317 
RANDOM ,6-316 
ROUND ,6-45 



SIN ,6-116 



SINH ,6-109 


SNCS ,6-112 


SORT ,6-1 17 


STBYTE 


,6-318 


T 

TAN ,6-119 


TANH ,6-121 


TRUNC 


,6-53 


V 




VM6D3 


,6-167 


VM6DN 


,6-166 


VM6S3 . 


,6-169 


VM6SN 


,6-168 


V06D3 , 


,6-171 


V06DN 


,6-170 


V06S3 , 


6-173 


V06SN 


,6-172 


VR0DN 


,6-344 


VR0DNF 


» ,6-345 


VR0SN 


,6-346 


VROSNF 


1 ,6-347 


VR1DN 


,6-348 


VR1DNF 


» ,6-349 


VR1SN 


,6-350 


VR1SNF 


1 ,6-351 


VR1TN , 


6-352 


VR1TNP 


,6-353 


VR1WN 


,6-354 


VR1WNP ,6-355 


VVODN 


,6-174 


VVODNF 


',6-175 


VVOSN . 


,6-176 


VVOSNP 


,6-177 


VV10D3 


,6-223 


VV10DN 


,6-226 


VV10S3 


,6-227 


VV10SN 


,6-229 


VV1D3 , 


6-179 


VV1 D3P 


,6-180 


VV1DN 


,6-178 


VV1DNF 


* ,6-181 


VV1S3 , 


6-183 


VV1S3P 


,6-184 


VV1SN ; 


,6-182 


VV1SNP 


,6-185 



VV1T3 ,6-187 
VV1T3P ,6-188 
VV1TN ,6-186 
VV1TNP ,6-189 
VV1W3 ,6-191 
VV1W3P ,6-192 
VV1WN ,6-190 
VV1WNP ,6-193 
VV2D3 ,6-195 
VV2DN ,6-194 
VV2S3 ,6-197 
VV2SN ,6-196 
VV3D3 ,6-199 
VV3DN ,6-198 
VV3S3 ,6-201 
VV3SN ,6-200 
VV4D3 ,6-203 
VV4DN ,6-202 
VV4S3 ,6-205 
VV4SN ,6-204 
VV5D3 ,6-207 
VV5DN ,6-206 
VV5S3 ,6-209 



VV5SN 
VV6D3 
VV6DN 
VV6S3 
VV6SN 
VV7D3 



,6-208 

,6-211 

,6-210 

,6-213 

,6-212 

,6-215 



VV7DN ,6-214 
VV7S3 ,6-217 
VV7SN ,6-216 
VV8D3 ,6-218 
VV8DN ,6-219 
VV8S3 ,6-220 



VV8SN 
VV9D3 
VV9DN 
VV9S3 
VV9SN 
VX6D3 
VX6S3 



,6-221 
,6-224 
,6-225 
,6-222 
,6-228 
,6-230 
,6-231 



XTOC ,6-319 
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7.0 System Interfaces 

This section deals with characteristics and behavior of the HAL/S-FC compiler as 
related to the environment in which the compiler operates. Specifically, these items are 
in relation to the host computer in which the compiler is executed. 

7.1 Internal System Interfaces 

The HAL/S-FC compiler is designed to operate under OS/360 MVT or an equivalent 
operating system (such as OS/VS2 on IBM 370 equipment). The compiler was 
developed under Release 21 .6 of OS and uses many of the features of that system. 

7.1.1 Macro Instructions 

All operating system communication is performed via standard assembler language 
macro instructions as provided with OS MVT The following list contains the names of 
all macros executed directly by the HAL/S-FC compiler. 



ABEND 

DCBD 

GET 

OPEN 

SAVE 

TTIMER 



BLDL 

DELETE 

GETBUF 

POINT 

SPIE 

WRITE 



CHECK 

FIND 

GETMAIN 

PUT 

STIMER 



CLOSE 

FREEMAIN 

LOAD 

READ 

STOW 



DCB 

FREEPOOL 

NOTE 

RETURN 

TIME 



The forms of some of these macros require further explanation: 



FREEMAIN 
GETMAIN 



STIMER 
TTIMER 



All FREEMAIN macros use the SP parameter to indicate 
subpool 22. Both freeing of single elements of storage and 
freeing of an entire subpool are performed. 

All requests for main storage are made with the SP operand 
specifying subpool 22. GETMAINs are done for both single 
elements of storage of specific size and once, during compiler 
initialization, for a variable region using the VC form of 
GETMAIN. This initialization GETMAIN obtains the largest 
contiguous element of memory available in the job step 
region. This memory (assigned to subpool 22) is used to hold 
executable compiler code and as a data area for the compiler. 

The STIMER macro with the TASK option is used to start an 
accounting of CPU time used by the compiler. 

The TTIMER macro is used to test the TASK interval timer as 
started by the STIMER macro to determine elapsed CPU time 
at various points in a compilation. 
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7.1 .2 Dynamic Invocation of the Compiler 

The HAL/S-FC compiler may be dynamically invoked by another processing program. 
The details of this interface are controlled by the HAL/SDL ICD. 

The dynamic invocation capability allows: 

• specification of a parameter string to be acted upon by the compiler, 

• specification of an alternate DDNAME list for those DD cards referenced by the 
compiler, and 

• specification of communication areas in which the compiler will supply information 
to the invoking program. 

The compiler takes the following actions to restore its environment upon return to the 
program which performed the invocation. 

• All DCBs opened by the compiler are closed and any automatically acquired buffers 
are FREEPOOLed. 

• All GETMAINed storage is FREEMAINed. 

• The SPIE exit (if any) is restored to its status upon entering the compiler. 

7.1 .3 OS/360 Access Methods 

In performing input/output processing the HAL/S-FC compiler uses the OS Data 
Management Access Methods: 

BSAM QSAM BPAM 

No other access methods are used, and all datasets manipulated by the compiler are 
standard OS/360 datasets. 

7.2 User or External System Interfaces 

The majority of ways in which users of the HAL/S-FC compiler interact with the compiler 
are described in Sections 2 through 5 of this document. However, the primary vehicle 
for user communication with this system is Job Control Language which is a part of the 
compiler's interface to the system in which it operates. This subsection describes the 
two areas of external or user interfaces to the system: 

1 ) user-defined options acted upon by the compiler, and 

2) the JCL with which the user defines the compiler's data and hence the 
environment in which the compiler is to operate. 

7.2.1 User-defined Options 

The HAL/S-FC compiler has a number of optional features which may be exercised by 
the user. These options are indicated via key word parameters passed to the compiler 
in the standard OS/360 method. The options are either passed to the compiler during 
dynamic invocation as described in the HAL/SDL ICD, or are passed via the PARM field 
on the EXEC card in the JCL invoking the compiler. A list of these options and their 
effects may be found in Section 5 of the HAL/S-FC User's Manual. 
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7.2.2 Job Control Language Specification 

JCL is the means by which any user of the compiler defines the set of data upon which 
the compiler is to operate. This JCL is therefore the first interface of the user and the 

compiler. Once this set of data is specified, all other interfaces with the user are 
through this data in the manner described in preceding chapters. The remainder of this 
subsection consists of two parts: 

1 ) a listing of some typical JCL for compiler invocation; and 

2) a chart describing the uses, presumed attributes, and access methods for all 
DD cards. 

//HALFC PROC OPTION=,LEVEL=HALS101 00010000 

//HAL EXEC PGM=MONITOR,REGION=350K,TIME=1, 00020000 

// PARM='NOZCON,&OPTION' 00030000 

//STEPLIB DD DISP=SHR,DSN=&LEVEL. .MONITOR 00040000 

//PROGRAM DD DISP=SHR,DSN=&LEVEL. .COMPILER 00050000 

//SYSPRINT DD SYSOUT=A, DCB= (RECFM=FBA, LRECL=133 , 00060000 

// BLKSIZE=3458) 00070000 

//LISTING2 DD SYSOUT=A, DCB= (RECFM=FBA, LRECL=133 , 00080000 

// BLKSIZE=3458) 00090000 

//OUTPUT3 DD UNIT=SYSDA,DISP= (MOD, PASS) , SPACE = (CYL, (1, 1) ) , 00100000 

// DCB= (RECFM=FB,LRECL=80,BLKSIZE=400) , 00110000 

// DSN=&&HALOBJ 00120000 

//OUTPUT4 DD SYSOUT=B,DCB= (RECFM=FB,LRECL=8 0, 00130000 

// BLKSIZE=400) 00140000 

//OUTPUT5 DD DISP= (MOD, PASS) ,DSN=&&HALSDF, 00150000 

// SPACE= (TRK, (2,2, 1) ) ,UNIT=SYSDA, 00160000 

// DCB= (RECFM=F,LRECL=1680,BLKSIZE=1680) 00170000 

//OUTPUT6 DD DISP= (MOD, PASS) , DSN=&&TEMPLIB, 00180000 

// SPACE= (TRK, (2,2, 1) ) ,UNIT=SYSDA, 00190000 

// DCB= (RECFM=FB,LRECL=80,BLKSIZE=1680) 00200000 

//OUTPUT7 DD DUMMY, DCB= (RECFM=FM,LRECL=121,BLKSIZE=121) 00210000 

//ERROR DD DISP=SHR,DSN=&LEVEL. .ERRORLIB 00220000 

//FILE1 DD UNIT=SYSDA,SPACE= (CYL, 3) 00230000 

//FILE2 DD UNIT=SYSDA,SPACE= (CYL, 3) 00240000 

//FILE3 DD UNIT=SYSDA,SPACE= (CYL, 3) 00250000 

//FILE4 DD UNIT=SYSDA,SPACE= (CYL, 3) 00260000 

//FILE5 DD UNIT=SYSDA,SPACE= (CYL, 3) 00270000 

//FILE6 DD UNIT=SYSDA,SPACE= (CYL, 3) 00280000 

Typical JCL for Compiler Invocation 
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Compiler DDNAMES, Uses, and 

FUNCTION DEVICE LRECL RECFM 



DEVICE 
REQUIREMENTS 



Requirements 

BLKSIZE BUFNO 3 



DSORG ACCESS 

METHOD, MACRF 



PROGRAM 


Executable compiler phases 


direct access 
magnetic tape 


7200 


F 


7200 





PS 


BSAM, R 


SYSPRINT 


Primary listing 


printer 133 
intermediate storage 


FBA 


3458 1 


1 


PS 


QSAM, PL 


LISTING2 


Secondary unformatted listing 


printer 133 
intermediate storage 


FBA 


3458 1 


1 


PS 


QSAM, PL 


OUTPUT3 


Object module output 


direct access 
magnetic tape 


80 


FB 


400 1 


1 


PS 


QSAM, PL 


OUTPUT4 


Duplicate object module output 


direct access 
magnetic tape 


80 


FB 


400 1 


1 


PS 


QSAM, PL 


OUTPUT5 


Simulation data file output 


direct access 


1680 4 


F 4 


1680 4 





PO 


BPAM, W 


OUTPUT6 


Template search and creation 


direct access 


80 2 


FB 


1680 2 


1 


PO 


BPAM, WR 


OUTPUT7 


Pseudo-assembly listing for 
linkedit ABSLIST function 


direct access 
magnetic tape 


133 


FBM 


3458 1 


1 


PS 


BSAM, PL 


ERROR 


Compiler error message retrieval 


direct access 


80 


FB 


400 


1 


PO 


BPAM, R 


FILE1 


Phase 1 , Optimizer HALMAT 
work file Auxiliary HALMAT file 


direct access 


7200 


F 


7200 





PS 


BSAM, RWP 


FILE2 


Literal communication area 


direct access 


1560 


F 


1560 





PS 


BSAM, RWP 


FILE3 


Phase 1 Init/Const work area 
Phase 2 code gen. work area 


direct access 


1600 


F 


1600 





PS 


BSAM, RWP 


FILE4 


Phase 2 HALMAT work file 


direct access 


7200 


F 


7200 





PS 


BSAM, RWP 


FILE5 


Phase 3 paging area 


direct access 


1680 


F 


1680 





PS 


BSAM, RWP 


FILE6 


Statement data communication 
area 


direct access 


512 


F 


512 





PS 


BSAM, RWP 


SYSIN 


Primary source input 


intermediate storage 80< 

LRECL< 
132 


FB 


legal multiple 
Of LRECL 1 


1 


PS 


QSAM, GL 


INCLUDE 


Secondary source input 


direct access 


80< 

LRECL< 

132 


FB 


legal multiple 
Of LRECL 1 


1 


PO 


BPAM, R 


ACCESS 


ACCESS Rights control 


direct access 


80 2 


FB 


1680 2 


1 


PO 


BPAM, R 



NOTES: 

1 BLKSIZE value may be altered by user to any installation-legal value. 

2 Compiler will use LRECL and BLKSIZE supplied by user. 

3 BUFNO may be specified by user for any PS type datasets. 

4 Defaults are shown; Records are always written as 1680 blocks but user- 
supplied attributes will be retained. 
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8. PASS/BFS Differences 

8.1 Introduction and Background 

This section outlines the differences between the Primary Avionics Software System 
(PASS) and the Backup Flight Software (BFS) versions of the HAL/S-FC merged 
compiler as of release BFS 7v0. The merging of PASS and BFS compiler source code 
was authorized via CR11114. BFS 7v0 was a merge of the separate PASS and BFS 
compiler source code designed to reduce the sustained engineering costs of 
maintaining two separate compilers. The PASS compiler version 23v2 was used as a 
baseline for adding BFS version 6v0 unique code and certain PASS and BFS unique 
discrepancy reports (DRs) and change requests (CRs). Although much of the source 
became common between the two compilers, there exist differences that can be 
attributed to required PASS/BFS interfaces and certain desired but not required 
compiler features. For more information, refer to the Backup Operating System 
Interface Control Document (BOS ICD, OV102). BFS 7v0 is functionally equivalent to 
PASS 23v2 except for the differences described in the following sections. 

8.2 Interface Differences (Required) 

8.2.1 Operating Systems (BOS vs. FCOS) 

The BFS compiler system interfaces with the Backup Operating System (BOS) while 
the PASS compiler interfaces with the Flight Computer Operating System (FCOS). 

The SVCI statement is implemented for BFS and must be the last statement before the 
CLOSE statement in a HAL/S program. SVCI is not implemented for PASS since an 
automatic SVC is generated. 

The BFS compiler system contains Initial Entry processing using a carry bit parameter 
passed in by the BOS. HAL/S programs use this to determine if a task was 

1 ) inactive prior to current entry 

2) active, but normal sequence of execution was interrupted 

3) OFF - active, normal sequence of execution 

All code areas, as well as constants and literals in data areas, are protected for BFS. 
PASS groups all data areas in Control Sections (CSECTs) and cannot selectively 
protect a portion of a CSECT Therefore, data areas are unprotected for PASS. 

Real-time statements SCHEDULE, TERMINATE, CANCEL, WAIT, UPDATE PRIORITY, 
SIGNAL, SET, RESET, SEND ERROR, RUNTIME, CLOCKTIME, DATE, PRIO, 
ERRGRP, and ERRNUM are disallowed in BFS due to the BOS's synchronous nature. 
FCOS is asynchronous, therefore the aforementioned functions are allowed in PASS. 
BFS program and task names are formed with a "$" appended to the front of a seven 
character (maximum) non-underscored HAL/S program or task name. PASS program 
and task names are formed with two possible characters ($0-$9) appended to the front 
of a six character name. 

UPDATE blocks and EXCLUSIVE procedures or functions are allowed in PASS, 
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however they are disallowed in BFS. 

Block definitions are generated differently for BFS and PASS. When a BFS program 
and task is invoked, the stack address is already in Register (R0). Additionally, an 
SVC 15(3) instruction is always generated for alternate entry processing for BFS. For 
PASS, the stack address has to be loaded into R0 at the beginning of a program or task 
and no SVC 15(3) instruction is generated (no-SDL only). 

8.2.2 Linkage Editors (PILOT vs. AP101) 

At the start of the HAL/S compiler development, BFS used a different hardware 
platform than PASS. The BFS system used the ECLIPSE, while PASS used the IBM 
360 mainframe. Therefore, the BFS object code format was different and the PILOT 
linker was created. The ECLIPSE system was found to be too slow, so BFS switched 
to the IBM platform. However, BFS still uses PILOT as a linker versus the AP1 01 linker. 
Thus, the BFS system generates PILOT-formatted object code, while the PASS system 
generates IBM 360-formatted object code. 

8.2.3 Compiler Features 

Major Function ID (MFID) is a Type 2 option passed to the PASS compiler that PASS 
flight software (FSW) uses for grouping modules together for job related purposes. The 
MFIDs are stored in the #E CSECT (Process Directory Entry) bits 11-15 in the 6th half 
word. The PASS compiler will generate a Process Directory Entry for all programs and 
tasks within a compilation unit. FCOS must have a Process Directory Entry (#E). The 
BFS compiler does not generate a #E CSECT (and likewise a MFID) since this CSECT 
is used for scheduling, canceling, or terminating events which are unimplemented 
features in the BFS compiler. 

Specifying the NOSCAL option in BFS specifically inhibits the use of the SCAL and 
SRET instructions for subroutine linkage, even if the MICROCODE option was also 
chosen. MICROCODE and NOSCAL together thus cause BAL linkage to be used 
instead of the SCAL/SRET instructions. If NOMICROCODE was specified, neither 
SCAL nor NOSCAL has any effect. 

The DATA.REMOTE directive is restricted in BFS (CR11142, BFS 8.0) due to BOS 
incompatibility, even though the source code to use it exists in the compiler. If used by 
BFS, a "B1 02-UNIMPLEMENTED FEATURE OF HAL/S CALLED FOR", severity 2 
error message is emitted. 

BFS does not support the NAME TASK and NAME PROGRAM constructs. 



8-2 November 2005 



HAL/S Compiler System Specification USA003089 

32.0/17.0 

8.3 Compiler Feature Differences (Not Required) 

8.3.1 Changes Due To CRs/DRs 

CR8301 was implemented in PASS release 20v1. This CR changed the Branch 
instruction BCR to BCRE, and is PASS unique since its implementation would cause 
object code changes in Backup Flight Software. 

CR8348 was implemented in PASS release 20v1 . This CR changes Address 
Constants (ADCONs) offsets, condenses branch instructions and is PASS unique since 
its implementation would cause object code changes generated by Backup Flight 
Software. 

DR1 01 925, implemented in BFS release 7v0, changed the object file from OUTPUT8 to 
OUTPUT3. This DR also changed the data set organization of OUTPUT3 in the 
Monitor member, MONITOR, from sequential to partitioned for BFS since BFS compiler 
source contains a Monitor call that requires OUTPUT3 to be partitioned. This differs 
from PASS which uses sequential organization to support the PASS FSW tool Program 
Maintenance Facility (PMF). 

CR11114 changed the Monitor member COMPOPT to set apart the option bits used by 
each compiler. 

CR1 1 1 1 4 added the ERRORLIB members PR1 -PR5 and DR1 0621 4 added ERRORLIB 
member PR6. These error messages can only be emitted by the BFS compiler since 
the invocation of these members are contained in BFS unique code. 
BIX loop combining related to optimization was made PASS specific since its 
implementation would cause object code differences generated by Backup Flight 
Software. Note, BIX loop combining could not be attributed to a particular CR or DR but 
was implemented before PASS 19v0. 

CR1 3538 changed the object code for YCON to ZCON conversions so that the OH I 
instruction would not be emitted for BFS. This was necessary since the BFS Pilot does 
not set the Most Significant Bit (MSB) for ZCON data in Sector 0. The OHI was 
removed to prevent incorrect NAME compares with data converted using the YCON to 
ZCON routine in the compiler. 

8.3.2 Functions Not Implemented In BFS Compiler 

The macros %NAMEADD and %NAMEBIAS are not implemented in the BFS compiler 
and will generate an "XM1 - %NAMEADD (%NAMEBIAS) IS A NON-EXISTENT 
%MACRO" error message if the user tries to invoke them. 
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8.4 BFS/Pass Differences By Compiler Subsystem 



























MONITOR 




PASS1 




PASS2 




PASS3 




OPT 




OLDTPL (BFS)/ 
MFID (PASS)-options 




OLDTPL/MFID 




Intial entry 




CSECT Names 




BIX Loop 
Combining 




SCAL (BFS-options 


%SVCI 


Constant and Literal 
protection 












OUTPUT3 
-Sequential (PASS) 
-PDS (BFS) 


%NAMEADD 


Real-time statement 








%NAMEBIAS 


%SVCI 








Object code format 








Process Directory Entry 








UPDATE Blocks 






EXCLUSIVE procedures 




Alternate entry 
processing 




Program and task 
names 




BCR/BCRE instruction 
(CR8348) 




ADCON offsets 
(CR8348) 




Branch Condensing 
(CR8348) 














OHI in YCON to ZCON 
conversions (CR 13538) 













Figure 8-1 
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8.5 Summary of PASS/BFS Differences 



BFS 


PASS 


• BOS 


• FCOS 


• Pilot linker 


• AP101 linker 


• Pilot - formatted object code 


• 360 - formatted object code 


• SVCI implemented. Must be last 


• SVCI not implemented. Automatic 


statement before CLOSE 


SVC generated, (see Table 7-1 for a 




list of SVC Options) 


• Initial Entry processing - carry bit 


• No Initial Entry support 


• Constants and literals in data areas 


• All data areas are unprotected and 


are protected and unprotected on a 


code areas protected on a CSECT 


half word basis 


basis 


• SCHEDULE, TERMINATE, CANCEL, 


• The mentioned functions are allowed 


WAIT, UPDATE PRIORITY, SIGNAL, 




SET, RESET, SEND ERROR, 




RUNTIME, CLOCKTIME, DATE, 




PRIO, ERRGRP, ERRNUM are 




disallowed 




• No Process directory entry 


• Process directory entry (#E - stacks 




and flags) 


• Program and task names formed with 


• Program and task names formed with 


'$' appended to front of a 7 character 


2 character($0 - $9) appended to 


name 


front of a 6 character name 



Figure 8-2 
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Summary of PASS/BFS Differences (continued) 



BFS 


PASS 


• UPDATE blocks and EXCLUSIVE 


• Allowed 


procedures or functions are 




disallowed 




• Block definition of Program and Task 


• Block Definition of Program and Task 


• When program or task is invoked, 


• The stack address has to be loaded 


stack address is already in R0 


into R0 at the beginning of program or 




task 


• An SVC 1 5(3) instruction is always 


• No SVC 15(3) instruction is 


generated for alternate entry 


generated 


processing 




• SCAL inhibits use of SCAL and SRET 


• 


instructions 




• MICROCODE and NOSCAL results 


• 


in BAL linkage use 




• If NOMICROCODE specified neither 


• 


SCAL nor NSCAL has any effect 




• 


• Allows specification of the Major 




Function IDs 



Figure 8-3 
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Table 8-1 SVC Options 



FFFF TASK QUIT- TERMINATE CURRENT TASK 

0000 TASK NEXT- GO TO NEXT TASK 

000F ERROR RESTART 

001 MSEC CARD 07- NONCRITICAL I/O REQUEST 

0011 MSEC CARD 11- NONCRITICAL I/O REQUEST 

0012 MSEC RESET 

0013 MSEC CRITICAL I/O 

0014 HAL/S RTL ERROR 

0015 ASYNCHRONOUS I/O REQUEST 

001 6 TASK ATTACH REQUEST* 

0017 TASK DETACH REQUEST* 

001 8 TASK STOP REQUEST* 

001 9 MAKE A GPC ERROR LOG ENTRY 
001A EIU1 MSTR RESET 

001 B EIU1 STAT OVERRIDE 

001 C EIU2 MSTR RESET 

001 D EIU2 STAT OVERRIDE 

001 E EIU3 MSTR RESET 

001 F EIU3STATOVRD 

The SVC code is the first halfword of a list of actions to be performed. The 
actual parameter passed by the SVC instruction is the address of the list 
that contains the SVC code and address and mask pairs. 
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Note: 



Appendix A Error Classifications 

"b" denotes a blank. 



CLASS A: ASSIGNMENT STATEMENTS 

A ARRAY ASSIGNMENT3 99 

V COMPLEX VARIABLE ASSIGNMENT 
h MISCELLANEOUS ASSIGNMENT 

CLASS B: COMPILER TERMINATION 

B HALMAT BLOCK SIZE 

I INTERNAL ERRORS 

N NAME SCOPE NESTING 

S STACK SIZE LIMITATIONS 

T TABLE SIZE LIMITATIONS 

X COMPILER ERRORS 

b MISCELLANEOUS 

CLASS C: COMPARISONS 

b GENERAL COMPARISONS 

CLASS D: DECLARATION ERRORS 

A ATTRIBUTE LIST 

C STORAGE CLASS ATTRIBUTE 

D DIMENSION 

I INITIALIZATION 

L LOCKING ATTRIBUTE 

N NAME 

Q STRUCTURE TEMPLATE TREE ORGANIZATION 

S FACTORED/UNFACTORED SPECIFICATION 

T TYPE SPECIFICATION 

U UNDECLARED DATA 

b MISCELLANEOUS 

CLASS E: EXPRESSIONS 

A ARRAYNESS 

B BIT STRING EXPRESSIONS 

C CROSS PRODUCT 

D DOT PRODUCT 

L LIST EXPRESSIONS 

M MATRIX EXPRESSIONS 

N NAME 

OUTER PRODUCT 

V VECTOR EXPRESSIONS 

b MISCELLANEOUS EXPRESSIONS 
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CLASS F: FORMAL PARAMETERS S, ARGUMENTS 

D DIMENSION AGREEMENT 

N NUMBER OF ARGUMENTS 

S SUBBIT ARGUMENTS 

T TYPE AGREEMENT 

b MISCELLANEOUS 

CLASS G: STATEMENT GROUPINGS (DO GROUPS) 

B BIT TYPE CONTROL EXPRESSION 

C CONTROL EXPRESSION 

E EXIT/REPEAT STATEMENTS 

L END LABEL 

V CONTROL VARIABLE 

CLASS I : IDENTIFIERS 

L LENGTH 

R REPLACED IDENTIFIERS 

S QUALIFIED STRUCTURE NAMES 

CLASS L: LITERALS 

B BIT STRING 

C CONVERSION TO INTERNAL FORMS 

F FORMAT OF ARITHMETIC LITERALS 

S CHARACTER STRING 

CLASS M: MULTILINE FORMAT 

C OVERPUNCH CONTEXT 

E E-LINE 

OVERPUNCH USE 

S S-LINE 

b COMMENTS 



CLASS P: PROGRAM CONTROL & INTERNAL CONSISTENCE 

A ACCESS CONTROL 

C COMPOOL BLOCKS 

E EXTERNAL TEMPLATES 

F FUNCTION RETURN EXPRESSIONS 

L LABELS 

M MULTIPLE DEFINITIONS 

P BLOCK DEFINITION 

R ON ERROR/SVCI MACRO (ONLY EMITTED BY BFS COMPILER) 

S PROCEDURE /FUNCTION TEMPLATES 

T TASK DEFINITIONS 

U CALLS FROM UPDATE BLOCKS 

b MISCELLANEOUS 
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CLASS Q: SHAPING FUNCTIONS 

A ARRAYNESS 

D DIMENSION INFORMATION 

S SUBSCRIPTS 

X ARGUMENT TYPE 

CLASS R: REAL TIME STATEMENTS 

E ON/ SEND ERROR STATEMENTS 

T TIMING EXPRESSIONS 

U UPDATE BLOCKS 

CLASS S: SUBSCRIPT USAGE 

C SUBSCRIPT COUNT 

P PUNCTUATION 

Q PRECISION QUALIFIER 

R RANGE OF SUBSCRIPT VALUES 

S USAGE OF ASTERISKS 

T SUBSCRIPT TYPE 

V VALIDITY OF USAGE 



CLASS T: 

C 

D 

b 



I/O STATEMENTS 
CONTROL 
DEVICE NUMBER 
MISCELLANEOUS 



CLASS U: UPDATE BLOCKS 
I IDENTIFIER USAGE 

P PROGRAM BLOCKS 

T I/O 

CLASS V: COMPILE-TIME EVALUATIONS 
A ARITHMETIC OPERATIONS 

C CATENATION OPERATIONS 

E UNCOMPUTABLE EXPRESSIONS 

F FUNCTION EVALUATION 

CLASS X: IMPLEMENTATION DEPENDENT FEATURES 

A PROGRAM ID DIRECTIVE 

D DEVICE DIRECTIVE 

I INCLUDE DIRECTIVE 

M %MACRO 

Q INDIRECTION 

R DATA_REMOTE DIRECTIVE 

S LANGUAGE (E.G. $$$SUBSET) 

U UNKNOWN OR INVALID DIRECTIVE 
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V VERSION DIRECTIVE 



CLASS 


Y: 


ADVISORY MESSAGES 


A 




ASSIGNMENTS 


C 




COMPARISONS 


E 




EXPRESSIONS 


F 




FORMAL PARAMETERS AND ARGUMENTS 


CLASS 


Z: 


PRODUCE 'TRAP' MESSAGES FROM THE COMPILER 


B 




BIT INSTRUCTION 


C 




%COPY 







OPTIMIZER 


P 




REGISTER PRESSURE 


S 




SUBBIT EXPRESSION 
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